|
Search: id:A097005
|
|
|
| A097005 |
|
A062401[x] is iterated. Initial value = n!. a[n] is the path-length of trajectory = count of transients and recurrent terms, i.e. all distinct states arising in trajectory. |
|
+0
2
|
|
| 1, 1, 1, 2, 3, 3, 1, 9, 6, 14, 2, 51, 35, 81, 32, 31
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
EXAMPLE
|
n=10:10!=3628800;trajectory ={3628800,5702400,5702400,..} a[10]=2, one
transient and 1 cycle term.
|
|
MAPLE
|
fs[x_]:=EulerPhi[DivisorSigma[1, x]] itef[x_, len_]:=NestList[fs, x, len] Table[Length[Union[itef[w!, 1000]]], {w, 0, 16}]
|
|
CROSSREFS
|
Cf. A000203, A000010, A062401, A000142.
Sequence in context: A120653 A116155 A144149 this_sequence A068008 A123948 A131012
Adjacent sequences: A097002 A097003 A097004 this_sequence A097006 A097007 A097008
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 22 2004
|
|
|
Search completed in 0.002 seconds
|
