cp's OEIS Frontend

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

%I A099652 #9 Jul 09 2017 17:45:19
%S A099652 107,107,107,107,107,107,107,107,118,107,107,107,107,107,107,107,107,
%T A099652 107,107,107,107,118,107,107,107,107,107,118,107,107,107,107,107,107,
%U A099652 35,53,107,107,107,107,107,107,107,107,107,53,107,107,146,107,107,107,53
%N A099652 Largest number arising if f[x]=1+A003132(x) function is iterated until steady state reached. Compare with A099648.
%e A099652 n=32: list={32,14,18,66,73,59,107,51,27,54,42,21,6,37,59,107,51,...},
%e A099652 max[list]=a[32]=107>initial-value;
%e A099652 Also:lengths of transient=5,of cycle=0 (see in A099646).
%t A099652 ed[x_] :=IntegerDigits[x];func[x_] :=Apply[Plus, ed[x]^2]+1; Table[Max[NestList[func, w, 200]], {w, 1, 150}]
%Y A099652 Cf. A003132, A099648, A099646, A099649.
%K A099652 base,nonn
%O A099652 1,1
%A A099652 _Labos Elemer_, Nov 12 2004