|
%I #27 Mar 24 2024 03:54:24
%S 564,780,1572,2124,3336,5064,7656,13944,26376,49464,88536,187944,
%T 295896,443904,812340,1652304,2767056,4803888,7914048,13495104,
%U 30725280,79741440,196505388,300216656,285162916,237325596,325831908,434442572,325831936,347001764,260735800,434766560
%N Aliquot sequence starting at 564.
%D Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B6, pp. 92-95.
%H Amiram Eldar, <a href="/A014361/b014361.txt">Table of n, a(n) for n = 0..3486</a> (from factordb.com; terms 0..600 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=564&action=all">Aliquot sequence of 564</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]&, 564, 100] (* _Jean-François Alcover_, Mar 28 2020 *)
%o (PARI) a(n, a=564)={for(i=1, n, a=sigma(a)-a); a} \\ _M. F. Hasler_, Feb 24 2018
%Y Cf. A098007 (length of aliquot sequences); some other examples: A008885 (starting at 30) .. A008892 (starting at 276), A014360 (starting at 552) .. A014365 (starting at 1134), ..., A171103 (starting at 46758). See link to index for a more complete list.
%Y Cf. A001065.
%K nonn
%O 0,1
%A _Paul Zimmermann_
|
