OFFSET
1,3
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst = {}; mim = -1; Do[a = Plus @@ FixedPointList[EulerPhi, n] - n - 1; If[a > mim, mim = a; AppendTo[lst, a]], {n, 1100}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 20 2007
STATUS
approved