OFFSET
0,1
LINKS
EXAMPLE
a(1)=38400 + (2+2+2+2+2+2+2+2+2+3+5+5) = 38431. '0' primes between 38400 and 38431.
a(2)=6 + (2+3) = 11. '1' prime between 6 and 11.
a(3)=10 + (2+5) = 17. '2' primes between 10 and 17.
MATHEMATICA
a[n_]:=Length[Select[Range[n+1, NestWhile[#+Total[Times@@@FactorInteger[#]]&, n, !PrimeQ[#]&]-1], PrimeQ]]; t={38400}; Do[i=4; While[a[i]!=k, If[PrimeQ[i+1], i+=2, i++]]; AppendTo[t, i], {k, 57}]; t (* Jayanta Basu, Jun 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved