Hesaplar olan en kısa fonksiyonu, program ya da deyim oluşturma A073329 , yani, a(n)bir n'inci sahip numara n ayrı ana faktörler. Girdi, dizideki döndürülecek öğelerin sayısıdır. 0 < n. Tamsayı hassasiyetiyle ilgilenmiyorum. Sadece algoritmayı istiyorum. Keyfi büyük tamsayıları desteklemeyen diller için, sadece öyle yapıyormuş gibi davranacağız.

Test örneklerini yukarıda verilen OEIS bağlantısını takip ederek bulabilirsiniz.

GÜNCELLEME:

Programınızdan, işlevinizden veya ifadenizden bir tamsayı dizisi döndürmeniz gerektiğini netleştireyim . Başka bir deyişle, f(x)hesaplamak gerekir a(n)herkes için n1'den için x. x8 verildiğinde , işleviniz 2, 10, 60, 420, 4290, 53130, 903210, 17687670bir dizi veya başka bir uygun veri yapısı olarak dönmelidir .

Python, 144 karakter

R=range
P=[x for x in R(2,99)if all(x%i for i in R(2,x))]
for a in R(input()):
 x=n=0
 while n<=a:n+=sum(x%p==0for p in P)==a+1;x+=1
 print x-1

X = 8 için tamamlanması yaklaşık 2 dakika sürer.

Java, bir satırda 170 karakter

int a(int n) {
    int a = 2, t = a, m = 1, i = 1;
    Set s = new HashSet();
    while (i++ > 0) {
        if (t % i == 0) {
            s.add(i);
            t /= i;
            if (t == 1) {
                if (s.size() == n) {
                    if (n == m) {
                        break;
                    }
                    m++;
                }
                t = ++a;
                s.clear();
            }
            i = 1;
        }
    }
    return a;
}

Güncelleme, +77 karakter IOL

int[] f(int n) {
    int[] f = new int[n];
    for (int i = 0; i < n; i++) {
        f[i] = a(i+1);
    }
    return f;
}

Java (Ungolfed)

public class M {

    public static void main(String[] a) {
        final int N = 100000000;
        int[] p = new int[N];
        for(int f = 2; f * f < N; f++) {
            if(p[f] == 0)
                for(int k = f; k < N; k += f)
                    p[k]++;
        }
        for(int i = 1; i <= 8; i++) {
            int c = 0, j;
            for(j = 1; j < N && c < i; j++)
                if(p[j] == i)
                    c++;
            if(c == i)
                System.out.println(i + " = " + --j);
        }
    }
}

Elek algoritması kullanır. Oldukça hızlı. (6 Saniye) Kadar doğru çalışacak 8, muhtemelen daha yüksek bir şey için başarısız olacaktır.

JavaScript, 149 karakter

function(n){function f(x){for(r=[],o=x,z=2;z<=o;x%z?++z:(x/=z,r.indexOf(z)+1?0:r.push(z)));return r}for(c=0,i=1;c<n;)f(++i).length==n?c++:0;return i}

N> = 6 için tepkisiz hissediyor, bu yüzden ne kadar sürdüğünü test etmedim (tarayıcım 10 saniyede bir asılı komut dosyası bildirimi ya da bu nedenle doğru bir şekilde zamanlayamıyorum ve eğer tamamen asmak istemiyorum "bunu bir daha gösterme" ...)

Düzenleme: Dizi dönmek için 200 karakterdir (+51) :

function(n){function F(){function f(x){for(r=[],o=x,z=2;z<=o;x%z?++z:(x/=z,r.indexOf(z)+1?0:r.push(z)));return r}for(c=0,i=1;c<n;)F(++i).length==n?c++:0;return i}for(a=[];n>0;n--)a.push(f());return a}

J, 32 bayt

({"0 1~i.@#)(]/.~#@~.@q:)

Ama kendi sorumu çok geç cevapladığım için, bu cevabı merak olarak bırakacağız.