OFFSET
2,5
LINKS
Antti Karttunen, Table of n, a(n) for n = 2..16384
Carl Pomerance, The first function and its iterates, pp. 125-138 in Connections in Discrete Mathematics, ed. S. Butler et al., Cambridge, 2018.
MATHEMATICA
Table[Apply[ Plus, Divisors[Apply[ Plus, Divisors[n]] - n]] - (Apply[Plus, Divisors[n]] - n), {n, 0, 100}]
PROG
(PARI)
A001065(n) = (sigma(n) - n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 30 2010
EXTENSIONS
Edited by N. J. A. Sloane, May 30 2010
Terms a(0) and a(1) removed and more terms added by Antti Karttunen, Nov 01 2017
STATUS
approved