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