|
%I #7 Aug 30 2019 04:16:54
%S 12,18,20,12,30,12,20,42,12,18,56,12,66,70,12,78,20,12,88,18,12,20,
%T 102,104,12,56,114,12,18,12,138,20,12,30,12,20,18,12,174,88,12,186,12,
%U 196,18,20,12,104,30,12,20,222,56,12,18,12,246,12,258,20,12,18,272,12
%N Smallest abundant divisor of n-th abundant number.
%H Amiram Eldar, <a href="/A091196/b091196.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AbundantNumber.html">Abundant Number</a>
%t 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 *)
%Y Cf. A080224, A091191, A005101.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Dec 27 2003
|
