OFFSET
0,3
MATHEMATICA
Table[Count[IntegerPartitions[n, 4], _?(AllTrue[#, SquareFreeQ]&)], {n, 0, 100}] (* Harvey P. Dale, Sep 04 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 09 2021
STATUS
approved