OFFSET
1,1
MATHEMATICA
s=0; Do[s=s+FixedPoint[n+PrimePi[ # ]+1&, n]; If[IntegerQ[s/n], k=k+1; t[[k]]=s/n; Print[s/n]], {n, 1, 12000000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 22 2002
EXTENSIONS
a(17) - a(19) from Klaus Brockhaus, Aug 12 2009
a(20)-a(26) from Ray Chandler, Jul 19 2010
a(27)-a(29) from Donovan Johnson, May 23 2011
STATUS
approved