OFFSET
0,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Abundant Number.
MATHEMATICA
numd[n_] := Length@Select[Divisors[n], DivisorSigma[1, #] > 2 # &]; m = 100; s =
Table[0, {m}]; n = 1; c = 0; While[c < m, k = numd[n]; If[k > 0 && k <= m && s[[k]] == 0, s[[k]] = n; c++]; n++]; s (* Amiram Eldar, Jun 24 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 27 2003
EXTENSIONS
More terms from Reinhard Zumkeller, Dec 12 2009
STATUS
approved