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,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

Cf. A092693.

Sequence in context: A287124 A118258 A117583 * A064194 A036978 A079464

Adjacent sequences: A126103 A126104 A126105 * A126107 A126108 A126109

Keyword

nonn

Author

Robert G. Wilson v, Feb 20 2007

Status

approved