The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Oct 15 2013 22:32:33
%S 1,3,7,15,31,63,127,255,511,1023,2047,4095,8191,6045,24552,65535,
%T 131071,262143,524287,1048575,2097151,4194303,8388607,16777215,
%U 33554431,67108863,134217727,268435455,536870911,1073741823
%N A062402(x)=sigma(phi[x]) function is iterated; initial value=2^n; a(n)=smallest term of trajectory.
%e n=13: 2^n=8192, trajectory ={8192, 8191, 26208, [20440], 20440, .. a[13]=8191 arose in transient.
%t gf[x_] :=DivisorSigma[1, EulerPhi[x]] gite[x_, hos_] :=NestList[gf, x, hos] Table[Min[gite[2^w, 200]], {w, 1, 30}]
%Y Cf. A000010, A000203, A062402, A096857.
%K nonn
%O 1,2
%A _Labos Elemer_, Jul 21 2004