OFFSET
1,1
COMMENTS
The unitary abundancy of a number k is usigma(k)/k, where usigma(k) is the sum of unitary divisors of k (A034448).
EXAMPLE
The unitary abundancies of the first terms are 2.148..., 2.112..., 2.099..., 2.085..., 2.072..., ...
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); seq = {}; r = 3; Do[s = usigma[n]/n; If[s > 2 && s < r, AppendTo[seq, n]; r = s], {n, 1, 10^6, 2}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 21 2020
STATUS
approved