OFFSET
1,2
COMMENTS
FORMULA
MATHEMATICA
Array[Apply[Times, FactorInteger[#] /. {p_, k_} /; p > 1 :> Prime[k]^2^(PrimePi[p] - 1)] &, 27] /. {1, 1} -> 1 (* Michael De Vlieger, Aug 25 2018 *)
PROG
(PARI) a(n) = my (f=factor(n)); prod(i=1, #f~, prime(f[i, 2])^2^(primepi(f[i, 1])-1))
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Rémy Sigrist, Aug 24 2018
STATUS
approved