login
A098010
Record lengths of transient part of aliquot sequences corresponding to entries in A098009.
11
1, 2, 3, 4, 7, 15, 18, 178
OFFSET
1,2
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: A290992 A361229 A265742 * A088533 A091155 A359193
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