

A098010


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


10




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



