|
Search: id:A098009
|
|
|
| A098009 |
|
Numbers n such that transient part of the aliquot sequence for n is finite and sets a new record. |
|
+0
5
|
| |
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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.
|
|
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}] (from Robert G. Wilson v Sep 10 2004)
|
|
CROSSREFS
|
Records in A098008. Cf. A098010.
Adjacent sequences: A098006 A098007 A098008 this_sequence A098010 A098011 A098012
Sequence in context: A092530 A139557 A103690 this_sequence A129376 A024925 A114885
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
njas, Sep 10 2004
|
|
EXTENSIONS
|
102 and 138 from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 10 2004
|
|
|
Search completed in 0.002 seconds
|
