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

Offset: 1

Author

Labos Elemer, Nov 12 2004

Keywords

• base
• nonn

Examples

			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).
		

Crossrefs

Cf. A003132, A099648, A099646, A099649.

Programs

Mathematica

ed[x_] :=IntegerDigits[x];func[x_] :=Apply[Plus, ed[x]^2]+1; Table[Max[NestList[func, w, 200]], {w, 1, 150}]