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,2

Comments

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

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

Cf. A080224.

Sequence in context: A117304 A022759 A335540 * A335541 A174018 A098242

Adjacent sequences: A091190 A091191 A091192 * A091194 A091195 A091196

Keyword

nonn

Author

Reinhard Zumkeller, Dec 27 2003

Extensions

More terms from Reinhard Zumkeller, Dec 12 2009

Status

approved