|
| |
|
|
A098010
|
|
Record lengths of transient part of aliquot sequences corresponding to entries in A098009.
|
|
4
| | |
|
|
|
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}] (from Robert G. Wilson v Sep 10 2004)
|
|
|
CROSSREFS
| See A098009 for discussion, see A098008 for references.
Sequence in context: A049876 A049795 A014251 * A088533 A091155 A027362
Adjacent sequences: A098007 A098008 A098009 * A098011 A098012 A098013
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Sep 10 2004
|
|
|
EXTENSIONS
| 18 and 178 from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 10 2004
|
| |
|
|
