|
| |
|
|
A098009
|
|
Numbers n such that transient part of the aliquot sequence for n is finite and sets a new record.
|
|
10
|
| |
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
In order to extend this there is the problem that there are small numbers (276, 552, etc.) for which it is not presently known if they cycle. I propose that we assume these do not cycle, but mark the records beyond where this becomes an issue as conjectural only.
|
|
|
REFERENCES
|
See references and links in A098007, A098008.
|
|
|
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]] - 1; If[b > a, a = b; Print[n]], {n, 275}] (* Robert G. Wilson v, Sep 10 2004 *)
|
|
|
CROSSREFS
|
Records in A098008. Cf. A098010.
Sequence in context: A176472 A139557 A103690 * A129376 A266582 A227759
Adjacent sequences: A098006 A098007 A098008 * A098010 A098011 A098012
|
|
|
KEYWORD
|
nonn,more
|
|
|
AUTHOR
|
N. J. A. Sloane, Sep 10 2004
|
|
|
EXTENSIONS
|
102 and 138 from Robert G. Wilson v, Sep 10 2004
|
|
|
STATUS
|
approved
|
| |
|
|
