login
A126106
Record values in A092693 = sum of iterated phi(n).
3
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 20 2007
STATUS
approved