login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098010 Record lengths of transient part of aliquot sequences corresponding to entries in A098009. 10

%I

%S 1,2,3,4,7,15,18,178

%N Record lengths of transient part of aliquot sequences corresponding to entries in A098009.

%e 138 has a transient of length 177 (see Guy's book).

%t g[n_] := If[n > 0, DivisorSigma[1, n] - n, 0]; f[n_] := NestWhileList[g, n, UnsameQ, All]; a = -1; Do[b = Length[ f[n]] - 2; If[b > a, a = b; Print[b]], {n, 275}] (* _Robert G. Wilson v_, Sep 10 2004 *)

%Y See A098009 for discussion, see A098008 for references.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Sep 10 2004

%E 18 and 178 from _Robert G. Wilson v_, Sep 10 2004

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 18 10:34 EDT 2019. Contains 328147 sequences. (Running on oeis4.)