|
|
A359642
|
|
Number of numbers <= 10^n that are products of 4 distinct primes.
|
|
2
|
|
|
0, 0, 16, 429, 7039, 92966, 1103888, 12364826, 133702610, 1413227318, 14709861824, 151469044739, 1547593008310, 15721130285808, 159006397271949
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 16 = #{210, 330, 390, 462, 510, 546, 570, 690, 714, 770, 798, 858, 870, 910, 930, 966}
|
|
PROG
|
(PARI) a(n) = my(N=10^n); (f(m, p, k, j=1)=my(s=sqrtnint(N\m, k), count=0); if(k==2, forprime(q=p, s, count += primepi(N\(m*q)) - j; j+=1); return(count)); forprime(q=p, s, count += f(m*q, q+1, k-1, j+1); j+=1); count); f(1, 2, 4); \\ Daniel Suteu, Jan 11 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|