%I #24 Mar 24 2024 03:55:07
%S 966,1338,1350,2370,3390,4818,5838,7602,9870,17778,17790,24978,27438,
%T 30882,30894,34386,40782,52530,82254,82266,82278,121770,241110,450090,
%U 750870,1295226,1572678,1919538,2760984,4964136
%N Aliquot sequence starting at 966.
%D Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B6, pp. 92-95.
%H Amiram Eldar, <a href="/A014363/b014363.txt">Table of n, a(n) for n = 0..1035</a> (from factordb.com; terms 0..277 from T. D. Noe)
%H Christophe Clavier, <a href="http://christophe.clavier.free.fr/Aliquot/site/Aliquot.html">Aliquot Sequences</a>.
%H factordb.com, <a href="http://factordb.com/sequences.php?se=1&aq=966&action=all">Aliquot sequence of 966</a>.
%H Paul Zimmermann, <a href="http://www.loria.fr/~zimmerma/records/aliquot.html">Latest information</a>.
%H <a href="/index/Al#ALIQUOT">Index entries for sequences related to aliquot parts</a>.
%F a(n+1) = A001065(a(n)). - _R. J. Mathar_, Oct 11 2017
%t FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0]&, 966, 100] (* _Jean-François Alcover_, Mar 28 2020 *)
%o (PARI) a(n,a=966)={for(i=1,n,a=sigma(a)-a);a} \\ _M. F. Hasler_, Feb 24 2018
%Y Cf. A008885 (starting at 30) .. A008892 (starting at 276), A014360 (starting at 552) .. A014365 (starting at 1134), ..., A171103 (starting at 46758), A098007 (length of aliquot sequences).
%Y Cf. A001065.
%K nonn
%O 0,1
%A _Paul Zimmermann_