OFFSET
1,5
LINKS
MATHEMATICA
{1}~Join~Array[#/2^IntegerExponent[#, 2] &@ Apply[Times, PrimePi[#1]^#2 & @@@ FactorInteger[#]] &, 120, 2] (* Michael De Vlieger, Oct 23 2023 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Oct 23 2023
STATUS
approved