OFFSET
1,1
COMMENTS
The exponential abundancy of a number k is esigma(k)/k, where esigma(k) is the sum of exponential divisors of k (A051377).
The corresponding values of esigma(k)/k are 2.148..., 2.112..., 2.099..., 2.085..., 2.072..., ...
MATHEMATICA
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; seq = {}; rm = 3; Do[r = esigma[n]/n; If[r > 2 && r < rm, rm = r; AppendTo[seq, n]], {n, 1, 10^9, 2}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jul 30 2020
STATUS
approved