Voozh

A099652

Largest number arising if f[x]=1+A003132(x) function is iterated until steady state reached. Compare with A099648.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..53.

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