A099648 Largest term arising in complete-iteration-list (both transient and cycle) when f(x) = A003132(x) is iterated, i.e., if digit-squares of iterate added repeatedly until steady state (= either cycle or fixed point) is reached.

1, 145, 145, 145, 145, 145, 130, 145, 145, 10, 145, 145, 13, 145, 145, 145, 145, 145, 100, 145, 145, 145, 23, 145, 145, 145, 145, 100, 145, 145, 31, 32, 145, 145, 145, 145, 145, 145, 145, 145, 145, 145, 145, 44, 145, 145, 145, 145, 130, 145, 145, 145, 145, 145

Offset: 1

Author

Labos Elemer, Nov 12 2004

Keywords

• base
• nonn

Examples

			n=2: list = {2,4,16,37,58,89,145,42,20,4,16,37,58,...}; a(2) = max(list) = 145;
For n < 145, max > initial value except few cases. See A099649.
		

Crossrefs

Cf. A003132, A031176, A099646, A099649.

Programs

Mathematica

ed[x_] :=IntegerDigits[x]; func[x_] :=Apply[Plus, ed[x]^2]; itef[x_, ho_] :=NestList[id2, x, 100]; Table[Max[Union[itef[w, 100]]], {w, 1, 256}]