|
|
A171103
|
|
Aliquot sequence starting at 46758.
|
|
6
|
|
|
46758, 46770, 65550, 113010, 158286, 191922, 205518, 205530, 375078, 443418, 449958, 497562, 574278, 574290, 972090, 1918278, 2574522, 3034458, 4479750, 8807706, 11409894, 13311582, 13311594, 16269846, 16509018, 16578438
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
As of today, 3488 terms of the sequence sequence are known, cf. link to the factodb web site. - M. F. Hasler, Feb 25 2018
|
|
LINKS
|
|
|
MATHEMATICA
|
FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0]&, 46758, 100] (* Jean-François Alcover, Mar 28 2020 *)
|
|
PROG
|
(PARI) a(n, a=46758)={for(i=1, n, a=sigma(a)-a); a} \\ M. F. Hasler, Feb 24 2018
|
|
CROSSREFS
|
Cf. A098007 (length of aliquot sequences); some other examples: A008885 (starting at 30) .. A008892 (starting at 276), A014360 (starting at 552) .. A014365 (starting at 1134), see link to index entries for a more complete list.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. J. A. Sloane, Sep 25 2010, based on a posting by Hans Havermann to the Math Fun Mailing List, Sep 16, 2010
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|