|
%I #24 Mar 29 2024 06:13:42
%S 1134,1770,2550,4146,4158,7362,8628,11532,16272,29670,46362,46374,
%T 48666,48678,70362,86118,92058,95622,95634,180846,246834,381006,
%U 460458,562902,612138,612150,1316298,1350582,1509690,3086790
%N Aliquot sequence starting at 1134.
%D Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B6, pp. 92-95.
%H Amiram Eldar, <a href="/A014365/b014365.txt">Table of n, a(n) for n = 0..3839</a> (terms 0..3568 from Robert G. Wilson v)
%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=1134&action=all">Aliquot sequence of 1134</a>.
%H Robert G. Wilson v, <a href="/A014365/a014365.txt">terms n = 0..3568 with factorization</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 f[n_] := DivisorSigma[1, n] - n; NestList[f, 1134, 100] (* _Robert G. Wilson v_, Dec 22 2012 *)
%o (PARI) a(n, a=1134)={for(i=1, n, a=sigma(a)-a); a} \\ _M. F. Hasler_, Feb 25 2018
%Y Cf. A098007 (length of aliquot sequences); some other examples: A008885 (starting at 30) .. A008892 (starting at 276), A014360 (starting at 552) .. A014364 (starting at 1074), see link to index for a more complete list.
%Y Cf. A001065.
%K nonn
%O 0,1
%A _Paul Zimmermann_
|
