A347799 Number of compositions (ordered partitions) of n into at most 6 nonprime parts.

1, 1, 1, 1, 2, 3, 5, 6, 10, 16, 19, 31, 44, 52, 86, 101, 148, 206, 237, 350, 441, 551, 743, 900, 1151, 1470, 1782, 2216, 2762, 3287, 4072, 4894, 5835, 7052, 8362, 9856, 11758, 13710, 16066, 18791, 21799, 25271, 29192, 33583, 38485, 44178, 50304

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Cf. A018252, A052284, A341483, A347788, A347796, A347797, A347798.

Sequence in context: A194358 A018727 A161715 * A335597 A164523 A227305

Adjacent sequences: A347796 A347797 A347798 * A347800 A347801 A347802

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 14 2021

Status

approved