|
%I #4 Mar 30 2012 17:31:21
%S 0,1,3,7,9,17,19,31,39,47,55,71,85,91,105,109,111,117,153,159,171,197,
%T 209,263,319,337,417,423,511,527,551,641,695,707,761,767,779,889,923,
%U 991,1001,1007,1101,1151,1413,1495,1515,1647,1695,1711,1719,1739,1889
%N Record values in A092693 = sum of iterated phi(n).
%H T. D. Noe, <a href="/A126106/b126106.txt">Table of n, a(n) for n = 1..1000</a>
%t lst = {}; mim = -1; Do[a = Plus @@ FixedPointList[EulerPhi, n] - n - 1; If[a > mim, mim = a; AppendTo[lst, a]], {n, 1100}]; lst
%Y Cf. A092693.
%K nonn
%O 1,3
%A _Robert G. Wilson v_, Feb 20 2007
|
