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
1, 2, 3, 4, 7, 15, 18, 178 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..8.

EXAMPLE

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

MATHEMATICA

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 *)

CROSSREFS

See A098009 for discussion, see A098008 for references.

Sequence in context: A014251 A290992 A265742 * A088533 A091155 A254432

Adjacent sequences:  A098007 A098008 A098009 * A098011 A098012 A098013

KEYWORD

nonn,more

AUTHOR

N. J. A. Sloane, Sep 10 2004

EXTENSIONS

18 and 178 from Robert G. Wilson v, Sep 10 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 18 11:48 EDT 2019. Contains 325139 sequences. (Running on oeis4.)