OFFSET
1,2
MATHEMATICA
c[n_Integer] := FixedPoint[n+PrimePi[ # ]+1&, n] Table[Prime[c[w]]-c[Prime[w]], {w, 1, 10000}];
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 19 2002
STATUS
approved