OFFSET
1,21
LINKS
MATHEMATICA
Table[If[n == 1, 1, Apply[Times, #]/Apply[LCM, #] &@ PrimePi[FactorInteger[n][[All, 1]]]], {n, 120}] (* Michael De Vlieger, Aug 14 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 13 2017
STATUS
approved