OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
MATHEMATICA
f1[p_, e_] := e/p; f2[p_, e_] := (p + 1)^e; a[n_] := Denominator[n*(1 + Plus @@ f1 @@@ (f = FactorInteger[n]))/Times @@ f2 @@@ f]; Array[a, 100] (* Amiram Eldar, Nov 06 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Nov 06 2021
STATUS
approved