OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Abundant Number.
Eric Weisstein's World of Mathematics, Restricted Divisor Function.
MATHEMATICA
f[n_] := Module[{s = DivisorSigma[1, n] - n}, If[s > n, s, Nothing]]; Array[f, 250] (* Amiram Eldar, Mar 11 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 22 2012
STATUS
approved