A347797 Number of compositions (ordered partitions) of n into at most 4 nonprime parts.

1, 1, 1, 1, 2, 2, 4, 6, 5, 10, 14, 15, 24, 21, 35, 45, 48, 65, 77, 89, 114, 129, 148, 184, 205, 239, 285, 310, 361, 410, 459, 522, 593, 636, 740, 804, 911, 969, 1123, 1169, 1350, 1428, 1595, 1687, 1926, 1974, 2270, 2325, 2611, 2726, 3064, 3120, 3547, 3596, 4012, 4155

Offset

0,5

Links

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

Mathematica

Table[Length@Flatten[Permutations/@IntegerPartitions[n, 4, Select[Range@n, !PrimeQ@#&]], 1], {n, 0, 55}] (* Giorgos Kalogeropoulos, Sep 14 2021 *)

Crossrefs

Cf. A018252, A052284, A341481, A347788, A347796, A347798, A347799.

Sequence in context: A078099 A264872 A303306 * A351746 A118960 A107797

Adjacent sequences: A347794 A347795 A347796 * A347798 A347799 A347800

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 14 2021

Status

approved