|
Search: id:A099652
|
|
|
| A099652 |
|
Largest number arising if f[x]=1+A03132(x) function is iterated until steady state reached. Compare with A099648. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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.
Adjacent sequences: A099649 A099650 A099651 this_sequence A099653 A099654 A099655
Sequence in context: A078281 A082177 A096712 this_sequence A118774 A033218 A033258
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Nov 12 2004
|
|
|
Search completed in 0.002 seconds
|
