

A091196


Smallest abundant divisor of nth abundant number.


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A206421 A232391 A025491 * A319229 A334160 A271345
Adjacent sequences: A091193 A091194 A091195 * A091197 A091198 A091199


KEYWORD

nonn


AUTHOR

Reinhard Zumkeller, Dec 27 2003


STATUS

approved



