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