A171103 Aliquot sequence starting at 46758.

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

Offset: 0

Author

N. J. A. Sloane, Sep 25 2010, based on a posting by Hans Havermann to the Math Fun Mailing List, Sep 16, 2010

Keywords

• nonn

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

• Amiram Eldar, Table of n, a(n) for n = 0..3617 (terms 0..447 from R. J. Mathar)
• factordb.com, Aliquot sequence for 46758.
• Index entries for sequences related to aliquot parts.

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.

Programs

Mathematica

FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0]&, 46758, 100] (* Jean-François Alcover, Mar 28 2020 *)

PARI

a(n,a=46758)={for(i=1,n,a=sigma(a)-a);a} \\ M. F. Hasler, Feb 24 2018

Extensions

Erroneous comment replaced by M. F. Hasler, Mar 01 2018