login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A097006 Consider the function f(x)=sigma(phi(x))=A062402(x) iterated with initial value n!; a(n) is the path-length of trajectory. 0
1, 1, 2, 2, 2, 5, 6, 5, 10, 10, 17, 49, 91 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
The path length is the total number of transient and recurrent terms.
After 12000 iterations, f(13!) reaches 583880633503221176888439640142607059743547704176558111997560422400000.
LINKS
EXAMPLE
n=10: 10!=3628800; the trajectory is 3628800, 2972970, 2221560, 1915992, 1768767, 2877420, [1965840, 2227680, 1310680, 1591200, 1277874, 1307124, 1110488, 2010960, 1488032, 1981496, 2239920], [1965840, ...], ...; thus a(10)=17, with 6 transient and 11 recurrent states.
MATHEMATICA
f[n_] := DivisorSigma[1, EulerPhi[n]]; g[n_] := Length[ NestWhileList[ f, n, UnsameQ, All]] - 1; Table[ g[n! ], {n, 12}] (* Robert G. Wilson v, Jul 23 2004 *)
CROSSREFS
Sequence in context: A214787 A066835 A123953 * A033306 A136347 A279515
KEYWORD
nonn,more
AUTHOR
Labos Elemer, Jul 22 2004
EXTENSIONS
Edited by Robert G. Wilson v, Jul 23 2004
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:02 EDT 2024. Contains 371235 sequences. (Running on oeis4.)