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,3

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A164901 A262744 A359516 * A112997 A037032 A165753

Adjacent sequences: A347700 A347701 A347702 * A347704 A347705 A347706

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 12 2021

Status

approved