OFFSET
1,2
EXAMPLE
The ratio sigma(m)/esigma(m) for m = 1, 2, ..., 6 is 1, 3/2, 4/3, 7/6, 6/5, 2. The record values occur at m = 1, 2 and 6.
MATHEMATICA
f[n_] := DivisorSigma[1, n]/( Times @@ (Sum[ First[#]^d, {d, Divisors[Last[#]]}] & ) /@ FactorInteger[n]); seq = {}; fm = 0; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[seq, n]], {n, 1, 10^4}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jun 05 2020
STATUS
approved