A014364 - OEIS

%I #30 Mar 29 2024 06:12:04

%S 1074,1086,1098,1320,3000,6360,13080,26520,64200,136680,303960,668040,

%T 1448760,2897880,6778920,14760600,31761720,75003840,189623520,

%U 475142400,1262108388,1723154620,2250655556,1742856988

%N Aliquot sequence starting at 1074.

%D Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B6, pp. 92-95.

%H Amiram Eldar, <a href="/A014364/b014364.txt">Table of n, a(n) for n = 0..2194</a> (terms 0..881 from R. J. Mathar)

%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&amp;aq=1074&amp;action=all">Aliquot sequence of 1074</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) = A000203(a(n))-a(n). - _R. J. Mathar_, Oct 08 2017

%t FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0] &, 1074, 100] (* _Jean-François Alcover_, Mar 28 2020 *)

%o (PARI) a(n, a=1074)={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. A000203.

%K nonn

%O 0,1

%A _Paul Zimmermann_