%I #23 Mar 24 2024 03:54:46
%S 660,1356,1836,3204,4986,5856,9768,17592,26448,47952,94586,47296,
%T 46684,42524,31900,46220,50884,38170,36998,22810,18266,9136,8596,8652,
%U 14644,14700,34776,80424,137586,149838,194898,230478,236082
%N Aliquot sequence starting at 660.
%D Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B6, pp. 92-95.
%H Amiram Eldar, <a href="/A014362/b014362.txt">Table of n, a(n) for n = 0..1008</a> (from factordb.com; terms 0..268 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=660&action=all">Aliquot sequence of 660</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]&, 660, 100] (* _Jean-François Alcover_, Mar 28 2020 *)
%Y Cf. A001065, A014361, A014363.
%K nonn
%O 0,1
%A _Paul Zimmermann_