OFFSET
1,2
LINKS
FORMULA
a(n) = Product_{k=1..n} A025475(k).
MATHEMATICA
FoldList[Times, 1, Select[Range[250], !PrimeQ[#] && PrimePowerQ[#] &]] (* Amiram Eldar, Jun 27 2025 *)
PROG
(PARI) list(lim) = {my(p = 1); print1(p, ", "); for(k = 2, lim, if(isprimepower(k) > 1, p *= k; print1(p, ", "))); }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jun 27 2025
STATUS
approved
