OFFSET
0,1
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, B6.
LINKS
Tyler Busby, Table of n, a(n) for n = 0..1142 (terms 0..352 from T. D. Noe)
Christophe Clavier, Aliquot Sequences
Paul Zimmermann, Latest information
FORMULA
a(n+1) = A001065(a(n)). - R. J. Mathar, Oct 11 2017
MATHEMATICA
FixedPointList[If[# > 0, DivisorSigma[1, #] - #, 0]&, 552, 100] (* Jean-François Alcover, Mar 28 2020 *)
PROG
(PARI) a(n, a=552)={for(i=1, n, a=sigma(a)-a); a} \\ M. F. Hasler, Feb 24 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved