OFFSET
1,1
MATHEMATICA
c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] {s=0, s1=0}; Do[s=s+(1/EulerPhi[c[n]]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Labos Elemer, Sep 05 2002
EXTENSIONS
More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Jul 23 2005
a(30)-a(35) from Donovan Johnson, Aug 21 2011
STATUS
approved