OFFSET
1,2
COMMENTS
LINKS
FORMULA
MATHEMATICA
f[p_, e_] := NextPrime[p]^e; g[1] = 1; g[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := Denominator[n*DivisorSigma[1, (gn = g[n])]/(DivisorSigma[1, n] * gn)]; Array[a, 100] (* Amiram Eldar, Feb 17 2021 *)
PROG
CROSSREFS
Cf. A341526 (numerators).
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Feb 16 2021
STATUS
approved