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

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Abundant Number

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

Crossrefs

Cf. A080224, A091191, A005101.

Sequence in context: A365219 A232391 A025491 * A319229 A334160 A271345

Adjacent sequences: A091193 A091194 A091195 * A091197 A091198 A091199

Keyword

nonn

Author

Reinhard Zumkeller, Dec 27 2003

Status

approved