OFFSET
0,3
MATHEMATICA
Table[Length@Flatten[Permutations/@IntegerPartitions[n, 4, Select[Range@n, SquareFreeQ]], 1], {n, 0, 51}] (* Giorgos Kalogeropoulos, Sep 13 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 13 2021
STATUS
approved