OFFSET
1,4
EXAMPLE
a(4) = 24 = #{2310, 2730, 3570, 3990, 4290, 4830, 5610, 6006, 6090, 6270, 6510, 6630, 7410, 7590, 7770, 7854, 8610, 8778, 8970, 9030, 9282, 9570, 9690, 9870}
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, 5); \\ Daniel Suteu, Jan 10 2023
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Peter Dolland, Jan 09 2023
EXTENSIONS
a(14) from Daniel Suteu, Jan 10 2023
STATUS
approved