%I #13 Mar 28 2020 10:14:11

%S 570,870,1290,1878,1890,3870,6426,10854,13830,19434,20886,21606,25098,

%T 26742,26754,40446,63234,77406,110754,171486,253458,295740,647748,

%U 1077612,1467588,1956812,2109796,1889486,953914,668966,353578,176792

%N Aliquot sequence starting at 570.

%D R. K. Guy, Unsolved Problems in Number Theory, B6.

%H R. J. Mathar, <a href="/A074907/b074907.txt">Table of n, a(n) for n = 0..173</a>

%H Christophe CLAVIER, <a href="http://christophe.clavier.free.fr/Aliquot/site/Aliquot.html">Aliquot Sequences</a>

%F a(n+1) = A001065(a(n)). - _R. J. Mathar_, Oct 11 2017

%e a(0) = 570, a(1) = sigma(570) - 570 = 870.

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

%Y Cf. A008888, A008889.

%K nonn,fini,full

%O 0,1

%A Robert A. Stump (bee_ess107(AT)msn.com), Sep 30 2002