OFFSET
0,3
LINKS
Eric Weisstein's World of Mathematics, Perfect Power.
MATHEMATICA
Join[{1}, FoldList[Times, Join[{1}, Select[Range[250], GCD@@FactorInteger[#][[All, 2]]>1&]]]] (* Harvey P. Dale, May 03 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 20 2025
STATUS
approved
