OFFSET
0,5
MATHEMATICA
Table[Length@Flatten[Permutations/@IntegerPartitions[n, 5, Select[Range@n, !PrimeQ@#&]], 1], {n, 0, 50}] (* Giorgos Kalogeropoulos, Sep 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 14 2021
STATUS
approved