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