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,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

Cf. A003132, A099648, A099646, A099649.

Sequence in context: A096712 A161176 A161372 * A344803 A294744 A118774

Adjacent sequences: A099649 A099650 A099651 * A099653 A099654 A099655

Keyword

base,nonn

Author

Labos Elemer, Nov 12 2004

Status

approved