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