A091196 Smallest abundant divisor of n-th abundant number.

12, 18, 20, 12, 30, 12, 20, 42, 12, 18, 56, 12, 66, 70, 12, 78, 20, 12, 88, 18, 12, 20, 102, 104, 12, 56, 114, 12, 18, 12, 138, 20, 12, 30, 12, 20, 18, 12, 174, 88, 12, 186, 12, 196, 18, 20, 12, 104, 30, 12, 20, 222, 56, 12, 18, 12, 246, 12, 258, 20, 12, 18, 272, 12

Offset: 1

Author

Reinhard Zumkeller, Dec 27 2003

Keywords

• nonn

Links

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

Crossrefs

Cf. A080224, A091191, A005101.

Programs

Mathematica

ab = Select[Range[300], DivisorSigma[1, #] > 2 # &]; s = {}; Do[a = ab[[k]]; j = 1; While[! Divisible[a, ab[[j]]], j++]; AppendTo[s, ab[[j]]], {k, 1, Length[ab]}]; s (* Amiram Eldar, Aug 30 2019 *)