login
A099652
Largest number arising if f[x]=1+A003132(x) function is iterated until steady state reached. Compare with A099648.
0
107, 107, 107, 107, 107, 107, 107, 107, 118, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 118, 107, 107, 107, 107, 107, 118, 107, 107, 107, 107, 107, 107, 35, 53, 107, 107, 107, 107, 107, 107, 107, 107, 107, 53, 107, 107, 146, 107, 107, 107, 53
OFFSET
1,1
EXAMPLE
n=32: list={32,14,18,66,73,59,107,51,27,54,42,21,6,37,59,107,51,...},
max[list]=a[32]=107>initial-value;
Also:lengths of transient=5,of cycle=0 (see in A099646).
MATHEMATICA
ed[x_] :=IntegerDigits[x]; func[x_] :=Apply[Plus, ed[x]^2]+1; Table[Max[NestList[func, w, 200]], {w, 1, 150}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Nov 12 2004
STATUS
approved