A347703 Number of compositions (ordered partitions) of n into at most 4 prime parts (counting 1 as a prime).

1, 1, 2, 4, 7, 13, 20, 28, 36, 43, 53, 60, 68, 70, 79, 84, 103, 105, 124, 118, 147, 144, 183, 165, 207, 180, 243, 213, 280, 215, 290, 222, 334, 258, 377, 260, 411, 299, 471, 324, 491, 302, 530, 346, 595, 377, 639, 380, 705, 435, 766, 463, 819, 456, 886, 506, 942

Offset: 0

Author

Ilya Gutkovskiy, Sep 12 2021

Keywords

• nonn

Crossrefs

Cf. A008578, A280917, A341983, A347741, A347744, A347745, A347760, A347761.

Programs

Mathematica

Table[Length@Flatten[Permutations/@IntegerPartitions[n,4,Join[{1},Prime@Range@PrimePi@n]],1],{n,0,56}] (* Giorgos Kalogeropoulos, Sep 12 2021 *)