Cree la función, programa o expresión más corta que calcule A073329 , es decir, a(n)es el enésimo número que tiene n factores primos distintos. La entrada es el número de elementos en la secuencia a devolver. 0 < n. No me preocupa la precisión entera. Solo quiero el algoritmo. Para los idiomas que no admiten enteros arbitrariamente grandes, solo pretendemos que lo hacen.

Puede encontrar casos de prueba siguiendo el enlace a OEIS que se encuentra arriba.

ACTUALIZAR:

Permítame dejar en claro que necesita devolver una secuencia entera de su programa, función o expresión. En otras palabras, f(x)debe calcular a(n)para todos nde 1 a x. Dado x8, su función debería retornar 2, 10, 60, 420, 4290, 53130, 903210, 17687670como una matriz o alguna otra estructura de datos apropiada.

Python, 144 caracteres

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

Se tarda unos 2 minutos en completarse para x = 8.

Java, 170 caracteres en una línea

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;
}

Actualización, +77 caracteres 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 (sin golf)

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);
        }
    }
}

Utiliza un algoritmo de tamiz. Es muy rapido. (6 segundos) Funcionará con precisión por hasta 8, probablemente fallará por algo más alto.

JavaScript, 149 caracteres

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}

Siente que no responde n> = 6, así que no he probado cuánto tiempo lleva (mi navegador muestra una notificación de script colgado cada 10 segundos más o menos, por lo tanto, no puedo cronometrarlo con precisión y no quiero colgarlo por completo si marca "no mostrar esto de nuevo" ...)

Editar: para devolver la matriz es de 200 caracteres (+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 bytes

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

Pero como estoy respondiendo mi propia pregunta tan tarde, dejaremos esta respuesta como curiosidad.