OFFSET
1,1
COMMENTS
The corresponding values of usigma(m)/m are 3.222..., 3.168...., 3.149..., 3.127..., 3.109..., ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..36
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); s = {}; rm = 4; Do[r = usigma[n]/n; If[r > 3 && r < rm, rm = r; AppendTo[s, n]], {n, 1, 10^5}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 29 2020
STATUS
approved