This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A109932 a(n) = f^n(n) = f applied n times to n, where f(n) = A007425(n). 1
 1, 3, 3, 9, 3, 6, 3, 9, 6, 6, 3, 18, 3, 6, 9, 9, 3, 18, 3, 18, 9, 6, 3, 9, 6, 6, 6, 18, 3, 6, 3, 9, 9, 6, 9, 36, 3, 6, 9, 9, 3, 6, 3, 18, 18, 6, 3, 18, 6, 18, 9, 18, 3, 9, 9, 9, 9, 6, 3, 6, 3, 6, 18, 18, 9, 6, 3, 18, 9, 6, 3, 9, 3, 6, 18, 18, 9, 6, 3, 18, 6, 6, 3, 6, 9, 6, 9, 9, 3, 6, 9, 18, 9, 6, 9, 18 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 REFERENCES Amarnath Murthy and Mihaly Bencze [Beneze], Extending the scope of some number theoretic functions, Octogon Mathematical Magazine, 2003, Brasov, Romania. LINKS Antti Karttunen, Table of n, a(n) for n = 1..10000 MATHEMATICA f[n_] := Plus @@ DivisorSigma[0, Divisors[n]]; Table[ Nest[f, n, n], {n, 96}] (* Robert G. Wilson v *) PROG (PARI) A007425(n) = sumdivmult(n, k, numdiv(k)); \\ Charles R Greathouse IV, Aug 30 2013 A109932(n) = { my(k=n); while(n, n--; k = A007425(k)); k; }; \\ Antti Karttunen, Sep 22 2017 CROSSREFS Cf. A007425. Sequence in context: A225074 A127795 A074724 * A071909 A134662 A145444 Adjacent sequences:  A109929 A109930 A109931 * A109933 A109934 A109935 KEYWORD nonn AUTHOR Amarnath Murthy, Jul 18 2005 EXTENSIONS More terms from Robert G. Wilson v, Jul 21 2005 Name edited by Antti Karttunen, Sep 22 2017 STATUS approved

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

Last modified August 24 16:16 EDT 2019. Contains 326295 sequences. (Running on oeis4.)