A143645 Aliquot sequence starting at 24.

24, 36, 55, 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Author

N. J. A. Sloane, Nov 30 2008

Keywords

• nonn
• easy

Crossrefs

Cf. A001065.

Programs

Mathematica

NestList[If[#>0,DivisorSigma[1,#]-#,0]&,24,100] (* Paolo Xausa, Oct 16 2023 *)

Formula

a(n+1) = A001065(a(n)). - R. J. Mathar, Oct 11 2017