|
%I #19 Sep 12 2021 20:34:49
%S 1,1,2,4,7,13,20,28,36,43,53,60,68,70,79,84,103,105,124,118,147,144,
%T 183,165,207,180,243,213,280,215,290,222,334,258,377,260,411,299,471,
%U 324,491,302,530,346,595,377,639,380,705,435,766,463,819,456,886,506,942
%N Number of compositions (ordered partitions) of n into at most 4 prime parts (counting 1 as a prime).
%t Table[Length@Flatten[Permutations/@IntegerPartitions[n,4,Join[{1},Prime@Range@PrimePi@n]],1],{n,0,56}] (* _Giorgos Kalogeropoulos_, Sep 12 2021 *)
%Y Cf. A008578, A280917, A341983, A347741, A347744, A347745, A347760, A347761.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Sep 12 2021
|
