|
Search: id:A096864
|
|
|
| A096864 |
|
Function A062402[x]=sigma[phi[x]] is iterated. Starting with n, a(n) is the largest term arising in trajectory, either in transient or in terminal cycle. |
|
+0
4
|
|
| 1, 2, 3, 4, 12, 6, 12, 12, 12, 12, 18, 12, 28, 14, 15, 16, 72, 18, 72, 20, 28, 22, 36, 24, 42, 28, 72, 28, 72, 30, 72, 72, 42, 72, 72, 36, 252, 72, 72, 72, 90, 42, 252, 44, 72, 46, 72, 72, 252, 50, 252, 72, 252, 72, 90, 72, 252, 72, 90, 72, 168, 72, 252, 252, 168, 66, 168, 252
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=256: list={256,255,255}, a[256]=256 as a transient term;
n=101: list={101,217,546,403,1170,819,[1240,1512],1240,...,a[101]=1512 as a cycle term;
|
|
MATHEMATICA
|
gf[x_] :=DivisorSigma[1, EulerPhi[x]] gite[x_, hos_] :=NestList[gf, x, hos] Table[Max[gite[w, 20]], {w, 1, 256}]
|
|
CROSSREFS
|
Cf. A062401, A062402, A095955, A096859-A096866, A096993.
Sequence in context: A037432 A116054 A099527 this_sequence A013620 A119799 A036779
Adjacent sequences: A096861 A096862 A096863 this_sequence A096865 A096866 A096867
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 21 2004
|
|
|
Search completed in 0.002 seconds
|
