This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A014360 #33 Dec 25 2024 21:01:29 %S A014360 552,888,1392,2328,3552,6024,9096,13704,20616,30984,46536,86904, %T A014360 165816,367704,628356,837836,628384,630356,491884,368920,499400, %U A014360 772840,978650,975652,744248,696712,628628,857836,857892,1472268 %N A014360 Aliquot sequence starting at 552. %D A014360 R. K. Guy, Unsolved Problems in Number Theory, B6. %H A014360 Tyler Busby, <a href="/A014360/b014360.txt">Table of n, a(n) for n = 0..1181</a> (terms 0..352 from T. D. Noe) %H A014360 Christophe Clavier, <a href="http://christophe.clavier.free.fr/Aliquot/site/Aliquot.html">Aliquot Sequences</a> %H A014360 Paul Zimmermann, <a href="http://www.loria.fr/~zimmerma/records/aliquot.html">Latest information</a> %H A014360 <a href="/index/Al#ALIQUOT">Index entries for sequences related to aliquot parts</a>. %F A014360 a(n+1) = A001065(a(n)). - _R. J. Mathar_, Oct 11 2017 %t A014360 FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0]&, 552, 100] (* _Jean-François Alcover_, Mar 28 2020 *) %o A014360 (PARI) a(n, a=552)={for(i=1, n, a=sigma(a)-a); a} \\ _M. F. Hasler_, Feb 24 2018 %Y A014360 Cf. A001065, A098007 (length of aliquot sequences). %Y A014360 Some other examples: A008885 (starting at 30) .. A008892 (starting at 276), A014361 (starting at 564) .. A014365 (starting at 1134), see link to index for a more complete list. %K A014360 nonn %O A014360 0,1 %A A014360 _Paul Zimmermann_