A091193 Smallest number having n abundant divisors.

1, 12, 24, 36, 60, 72, 168, 120, 180, 288, 240, 432, 504, 360, 864, 1296, 960, 840, 720, 1080, 3456, 1800, 2016, 1440, 1680, 3024, 2160, 3780, 2880, 2520, 5280, 3360, 6048, 4320, 6480, 22440, 11340, 7200, 6720, 7920, 5040, 10800, 7560, 12960, 18900, 13440

Offset: 0

Author

Reinhard Zumkeller, Dec 27 2003

Keywords

• nonn

Comments

A080224(a(n))=n and A080224(m)<>n for m

Links

• Amiram Eldar, Table of n, a(n) for n = 0..1000
• Eric Weisstein's World of Mathematics, Abundant Number.

Crossrefs

Cf. A080224.

Programs

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 *)

Extensions

More terms from Reinhard Zumkeller, Dec 12 2009

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.