OFFSET
1,2
FORMULA
a(n) = Max[FixedPointList[A077080, n]]. See program below. Seems convergent. [tested for initial values below 1024.]
EXAMPLE
n=225: results in iteration sequence of 44 terms: {225,522,444,...,471744,653312,570240}, largest is 653312=a(225).
MATHEMATICA
f[x_] := EulerPhi[DivisorSigma[1, x]+EulerPhi[x]] Table[Max[FixedPointList[f, w]], {w, 1, 1024}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 28 2002
STATUS
approved