A347796 Number of compositions (ordered partitions) of n into at most 3 nonprime parts.

1, 1, 1, 1, 1, 2, 4, 2, 5, 6, 8, 11, 8, 13, 17, 17, 23, 25, 27, 33, 38, 37, 50, 48, 58, 63, 73, 70, 89, 82, 107, 102, 122, 112, 148, 136, 164, 161, 185, 173, 223, 196, 241, 231, 268, 254, 304, 273, 332, 318, 364, 348, 403, 364, 444, 415, 477, 448, 525, 479, 567

Offset

0,6

Links

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

Mathematica

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

Crossrefs

Cf. A018252, A052284, A341480, A347788, A347797, A347798, A347799.

Sequence in context: A106688 A167977 A267005 * A011169 A279481 A233131

Adjacent sequences: A347793 A347794 A347795 * A347797 A347798 A347799

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 14 2021

Status

approved