OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..500
EXAMPLE
72 is the smallest number > 60 with an abundance > the abundance of 60. - Donovan Johnson, Jan 20 2012
MATHEMATICA
a = {1}; m = -1; For[n = 2, n < 20000, n++, If[DivisorSigma[1, n] - 2*n > m, m = DivisorSigma[1, n] - 2*n; AppendTo[a, n]]]; a (* Stefan Steinerberger, Aug 04 2008 *)
DeleteDuplicates[Table[{n, DivisorSigma[1, n]-2n}, {n, 11000}], GreaterEqual[ #1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Mar 16 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Lowell, Jul 02 2008
EXTENSIONS
More terms from Stefan Steinerberger, Aug 04 2008
STATUS
approved