%I A126106
%S A126106 0,1,3,7,9,17,19,31,39,47,55,71,85,91,105,109,111,117,153,159,171,197,
%T A126106 209,263,319,337,417,423,511,527,551,641,695,707,761,767,779,889,923,
%U A126106 991,1001,1007,1101,1151,1413,1495,1515,1647,1695,1711,1719,1739,1889
%N A126106 Record values in A092693 = sum of iterated phi(n).
%t A126106 lst = {}; mim = -1; Do[a = Plus @@ FixedPointList[EulerPhi, n] - n - 
               1; If[a > mim, mim = a; AppendTo[lst, a]], {n, 1100}]; lst
%Y A126106 Cf. A092693.
%Y A126106 Sequence in context: A057463 A118258 A117583 this_sequence A064194 A036978 
               A079464
%Y A126106 Adjacent sequences: A126103 A126104 A126105 this_sequence A126107 A126108 
               A126109
%K A126106 nonn
%O A126106 1,3
%A A126106 Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 20 2007