OFFSET
1,4
COMMENTS
LINKS
EXAMPLE
The ratio a(n)/A349628(n) for n = 1..15: 1/1, 0/1, 1/4, 2/7, 1/6, 0/1, 3/8, 18/35, 35/52, 0/1, 1/12, 1/14, 3/14, 0/1, 1/24.
MATHEMATICA
f[p_, e_] := NextPrime[p]^e*(p - 1)/(p^(e + 1) - 1); s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := Numerator @ DivisorSum[n, s[#] * MoebiusMu[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 27 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Nov 26 2021
STATUS
approved