OFFSET
1,2
EXAMPLE
n=256: list={256,255,255}, transient=t=1, cycle=c=1, a(256)=t+c=2.
MATHEMATICA
gf[x_] :=DivisorSigma[1, EulerPhi[x]] gite[x_, hos_] :=NestList[gf, x, hos] Table[Length[Union[gite[w, 1000]]], {w, 1, 256}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 21 2004
STATUS
approved