OFFSET
1,1
COMMENTS
EXAMPLE
First term is 3 with sigma(n)/n = 4/3 ~ 1.33, then 4 with 13/9 ~ 1.44, then 10 with 9/5 = 1.80.
MATHEMATICA
abun[n_] := DivisorSigma[1, n]/n; mx = 0; t = {}; Do[m = abun[n]; If[m < 2 && m > mx && ! IntegerQ[Log[2, n]], mx = m; AppendTo[t, n]], {n, 10000}]; t (* T. D. Noe, Apr 09 2014 *)
PROG
(PARI) lista(nn) = {rab = 0; for (n=1, nn, if (n != 2^valuation(n, 2), ab = sigma(n)/n; if ((ab < 2) && (ab > rab), print1(n, ", "); rab = ab; ); ); ); } \\ Michel Marcus, Oct 27 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Michel Marcus, Oct 27 2013
EXTENSIONS
a(21)-a(22) from Michel Marcus, Oct 28 2013
a(23)-a(27) from Donovan Johnson, Nov 13 2013
STATUS
approved