A143759 Aliquot sequence starting at 86.

86, 46, 26, 16, 15, 9, 4, 3, 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

Offset: 0

Author

N. J. A. Sloane, Nov 30 2008

Keywords

• nonn
• easy

Crossrefs

Cf. A001065.

Programs

Mathematica

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

Formula

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