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

1, 1, 2, 4, 7, 14, 25, 43, 66, 93, 124, 160, 198, 240, 274, 315, 353, 415, 464, 538, 577, 669, 718, 850, 887, 1031, 1043, 1238, 1250, 1495, 1435, 1692, 1584, 1943, 1817, 2251, 2011, 2529, 2261, 2939, 2561, 3287, 2720, 3596, 3005, 4077, 3304, 4505, 3545, 4995, 3966

Offset

0,3

Links

Table of n, a(n) for n=0..50.

Mathematica

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

Crossrefs

Cf. A008578, A280917, A341984, A347703, A347742, A347744, A347745, A347761.

Sequence in context: A000076 A217730 A360055 * A218576 A054169 A287185

Adjacent sequences: A347757 A347758 A347759 * A347761 A347762 A347763

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 12 2021

Status

approved