A143645 - OEIS

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

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

%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 24.

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

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

%Y Cf. A001065.

%K nonn,easy

%O 0,1

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