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