OFFSET
1,1
EXAMPLE
n=8: 2^n=256, list={256,432,480,432,...}, max=a(8)=256, the start value;
n=13:2^n=8192,list={8192,10584,8640,8064,6144,3456,[2560,1800,2880, 3024,3840,3456],2560,..}, min=1800=a(13), a term of 6-cycle.
MATHEMATICA
fs[x_] :=EulerPhi[DivisorSigma[1, x]] itef[x_, hos_] :=NestList[fs, x, hos] Table[Min[itef[2^w, 200]], {w, 1, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 21 2004
STATUS
approved