OFFSET
1,3
FORMULA
a(n)=Length[FixedPointList[A077080, n]]-1.
EXAMPLE
n=1,2,6,10,..864: a[n]=1, n is fixed point for some n; n=225: results in iteration sequence of 44 terms: {225,522,444,...,471744,653312,570240}, 44=a[225].
MATHEMATICA
f[x_] := EulerPhi[DivisorSigma[1, x]+EulerPhi[x]] Table[Length[FixedPointList[f, w]]-1, {w, 1, 1024}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 28 2002
STATUS
approved