%I #15 Mar 28 2020 10:13:57

%S 840,2040,4440,9240,25320,51000,117480,271320,765480,1531320,3721800,

%T 7817640,15635640,32899560,65799480,139098120,349027320,699333000,

%U 1597611000,3386944680,9543610200,20041583280

%N Aliquot sequence starting at 840 (reaches 1 at 747th term).

%D A. W. P. Guy and R. K. Guy, A record aliquot sequence, pp. 557-559 of Mathematics of Computation 1943-1993 (Vancouver, 1993), Proc. Symp. Appl. Math., Vol. 48, Amer. Math. Soc. 1994.

%H T. D. Noe, <a href="/A045477/b045477.txt">Table of n, a(n) for n = 0..748</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

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

%K nonn,fini,full

%O 0,1

%A _N. J. A. Sloane_