A119239 Oddly superabundant numbers: odd n with sigma(n)/n > sigma(k)/k for all odd k < n.
1, 3, 9, 15, 45, 105, 315, 945, 1575, 2835, 3465, 10395, 17325, 31185, 45045, 135135, 225225, 405405, 675675, 2027025, 2297295, 3828825, 6891885, 11486475, 34459425, 43648605, 72747675, 130945815, 218243025, 654729075, 1003917915, 1527701175
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
- Richard Laatsch, Measuring the abundancy of integers, Mathematics Magazine 59 (2) (1986) 84-92.
- Walter Nissen, Abundancy : Some Resources
Crossrefs
Programs
-
Mathematica
rec=0; lst={}; Do[abun=DivisorSigma[1,n]/n; If[abun>rec, rec=abun; AppendTo[lst,n]], {n,1,10^6,2}]; lst
-
PARI
r=0;forstep(n=1,1e6,2,t=sigma(n)/n;if(t>r,r=t;print1(n", "))) \\ Charles R Greathouse IV, Nov 27 2013
Extensions
Definition clarified by Jonathan Sondow, Dec 08 2011
Comments