OFFSET
1,4
LINKS
MATHEMATICA
Array[#1/(2^IntegerExponent[#1, 2]*GCD[##]) & @@ {DivisorSigma[1, #], Times @@ Map[NextPrime[#1]^#2 & @@ # &, FactorInteger[#]]} &, 94] (* Michael De Vlieger, Nov 11 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Nov 10 2021
STATUS
approved