OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1600 (calculated from the b-file at A007691)
MATHEMATICA
s = {}; Do[If[Divisible[DivisorSigma[1, n], n], AppendTo[s, DivisorSigma[0, n]]], {n, 1, 10^6}]; s (* Amiram Eldar, Jul 20 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 05 2003
EXTENSIONS
More terms from Michel Marcus, Sep 19 2013
Data corrected by Amiram Eldar, Jul 20 2019
STATUS
approved