OFFSET
0,10
MATHEMATICA
Table[SeriesCoefficient[Product[1/(1 - Boole[PrimePowerQ[k]] x^k), {k, 1, Floor[Sqrt[n]]}], {x, 0, n}], {n, 0, 65}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 16 2024
STATUS
approved