|
| |
|
|
A099652
|
|
Largest number arising if f[x]=1+A03132(x) function is iterated until steady state reached. Compare with A099648.
|
|
0
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| See A099648-A099649.
|
|
|
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 * A118774 A033218 A033258
Adjacent sequences: A099649 A099650 A099651 * A099653 A099654 A099655
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 12 2004
|
| |
|
|
