|
%I #6 Sep 12 2021 20:35:47
%S 1,1,2,4,8,15,25,40,59,81,106,136,170,208,251,294,339,383,431,476,530,
%T 583,642,696,757,804,866,914,980,1041,1125,1167,1256,1312,1405,1466,
%U 1598,1657,1790,1840,1961,2004,2148,2160,2335,2365,2505,2502,2707,2664,2884
%N Number of compositions (ordered partitions) of n into at most 4 prime powers (including 1).
%t Table[Length@Flatten[Permutations/@IntegerPartitions[n,4,Join[{1},Select[Range@n,PrimePowerQ]]],1],{n,0,50}] (* _Giorgos Kalogeropoulos_, Sep 12 2021 *)
%Y Cf. A000961, A280543, A341133, A347762, A347763.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Sep 12 2021
|
