|
Search: id:A097003
|
|
|
| A097003 |
|
Function A062402[x]=phi[sigma[x]] is iterated. a(n) is the number of distinct terms arising in the trajectory of 2^n; a(n)=t(n)+c(n)=t+c, where t is the number of transient terms, c is the number of recurrent terms [in the terminal cycle]. |
|
+0
1
|
|
| 1, 1, 2, 1, 3, 4, 4, 1, 3, 4, 10, 3, 3, 11, 16, 1, 7, 10, 13, 25, 10, 5, 79, 58, 99, 100, 94, 92, 59, 37, 54, 1
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Concerning this sequence and A097004, A096994, A096995: in all 4 cases the initial value is 2^n and a certain function is iterated. They differ either in the function or in what is computed for that iteration.
Glossary: t+c = total count of transient+cycle terms, t = count of transient terms
Sequence 1: A062401 is iterated t+c is computed => this sequence
Sequence 2: A062402 is iterated t+c is computed => A097004
Sequence 3: A062401 is iterated t is computed => A096994
Sequence 4: A062402 is iterated t is computed => A096995
|
|
EXAMPLE
|
n=13: 2^n=8192, trajectory ={8192, 10584, 8640, 8064, 6144, [3456, 2560, 1800, 2880, 3024, 3840], 3456, 2560, ..}, t+c=a(13)=5+6=11;
|
|
MATHEMATICA
|
EulerPhi[DivisorSigma[1, x]] itef[x_, len_] :=NestList[fs, x, len] Table[Length[Union[itef[2^w, 20]]], {w, 1, 256}]
|
|
CROSSREFS
|
Cf. A000010, A000203, A062402, A096852.
Sequence in context: A002124 A097564 A128270 this_sequence A109447 A088261 A033779
Adjacent sequences: A097000 A097001 A097002 this_sequence A097004 A097005 A097006
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 21 2004
|
|
|
Search completed in 0.002 seconds
|
