A140522 Numbers m for which sigma(m) - 2*m exceeds sigma(k) - 2*k for all k < m.

1, 6, 12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 168, 180, 240, 300, 336, 360, 420, 480, 540, 600, 660, 720, 840, 1008, 1080, 1200, 1260, 1440, 1680, 2100, 2160, 2520, 3240, 3360, 3780, 3960, 4200, 4620, 4680, 5040, 6300, 6720, 7200, 7560, 8400, 9240, 10080

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 *)
(* Alternative: *)
DeleteDuplicates[Table[{n, DivisorSigma[1, n]-2n}, {n, 11000}], GreaterEqual[ #1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Mar 16 2023 *)

Crossrefs

Cf. A002093, A004394, A033880, A034090.

Sequence in context: A323002 A249127 A277336 * A065218 A187678 A124509

Adjacent sequences: A140519 A140520 A140521 * A140523 A140524 A140525

Keyword

nonn

Author

J. Lowell, Jul 02 2008

Extensions

More terms from Stefan Steinerberger, Aug 04 2008

Status

approved