%I #7 Sep 14 2021 08:56:09
%S 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,
%T 70,89,82,107,102,122,112,148,136,164,161,185,173,223,196,241,231,268,
%U 254,304,273,332,318,364,348,403,364,444,415,477,448,525,479,567
%N Number of compositions (ordered partitions) of n into at most 3 nonprime parts.
%t Table[Length@Flatten[Permutations/@IntegerPartitions[n,3,Select[Range@n,!PrimeQ@#&]],1],{n,0,60}] (* _Giorgos Kalogeropoulos_, Sep 14 2021 *)
%Y Cf. A018252, A052284, A341480, A347788, A347797, A347798, A347799.
%K nonn
%O 0,6
%A _Ilya Gutkovskiy_, Sep 14 2021
|