OFFSET
1,8
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
FORMULA
MATHEMATICA
Array[Apply[Times, FactorInteger[#] /. {p_, e_} /; p > 0 :> p^Floor[(e - 1)/2]] &, 105] (* Michael De Vlieger, Nov 28 2017 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Nov 28 2017
STATUS
approved