login
Aliquot sequence starting at 86.
3

%I #11 Oct 16 2023 11:27:27

%S 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,

%T 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,

%U 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

%N Aliquot sequence starting at 86.

%F a(n+1) = A001065(a(n)). - _R. J. Mathar_, Oct 11 2017

%t NestList[If[#>0,DivisorSigma[1, #]-#,0]&,86,100] (* _Paolo Xausa_, Oct 16 2023 *)

%Y Cf. A001065.

%K nonn,easy

%O 0,1

%A _N. J. A. Sloane_, Nov 30 2008