A126106 Record values in A092693 = sum of iterated phi(n).

0, 1, 3, 7, 9, 17, 19, 31, 39, 47, 55, 71, 85, 91, 105, 109, 111, 117, 153, 159, 171, 197, 209, 263, 319, 337, 417, 423, 511, 527, 551, 641, 695, 707, 761, 767, 779, 889, 923, 991, 1001, 1007, 1101, 1151, 1413, 1495, 1515, 1647, 1695, 1711, 1719, 1739, 1889

Offset: 1

Author

Robert G. Wilson v, Feb 20 2007

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A092693.

Programs

Mathematica

lst = {}; mim = -1; Do[a = Plus @@ FixedPointList[EulerPhi, n] - n - 1; If[a > mim, mim = a; AppendTo[lst, a]], {n, 1100}]; lst