|
|
A091196
|
|
Smallest abundant divisor of n-th 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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|