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