|
| |
|
|
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.
|
|
1
| |
|
|
1, 1, 1, 2, 3, 3, 1, 9, 6, 14, 2, 51, 35, 81, 32, 31
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 * A068008 A123948 A188886
Adjacent sequences: A097002 A097003 A097004 * A097006 A097007 A097008
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 22 2004
|
| |
|
|
