|
%I #5 Nov 05 2013 18:50:37
%S 1,3,5,7,9,13,15,21,27,33,39,45,57,63,75,93,99,105,135,165,189,195,
%T 225,255,273,285,315,399,405,441,465,495,525,585,675,693,735,765,819,
%U 825,855,945,1125,1155,1305,1365,1485,1575,1755,1785,1995,2145,2205
%N Highly abundant odd numbers: odd n such that sigma(n) is a record.
%H T. D. Noe, <a href="/A174572/b174572.txt">Table of n, a(n) for n=1..1000</a>
%t mx=0; t={}; Do[ds=DivisorSigma[1,n]; If[ds>mx, mx=ds; AppendTo[t,n]], {n,1,10^4,2}]; t
%Y Cf. A002093 (highly abundant numbers).
%K nonn
%O 1,2
%A _T. D. Noe_, Mar 24 2010
|
