A347776 Number of compositions (ordered partitions) of n into at most 6 prime powers (including 1).
1, 1, 2, 4, 8, 16, 31, 61, 115, 207, 353, 572, 882, 1305, 1863, 2581, 3491, 4615, 5974, 7583, 9462, 11616, 14070, 16844, 19965, 23436, 27289, 31502, 36104, 41074, 46462, 52244, 58534, 65230, 72458, 80118, 88352, 97011, 106448, 116393, 127189, 138532, 150819, 163473
Offset: 0
Keywords
Programs
-
Mathematica
Table[Length@Flatten[Permutations/@IntegerPartitions[n,6,Join[{1},Select[Range@n,PrimePowerQ]]],1],{n,0,43}] (* Giorgos Kalogeropoulos, Sep 13 2021 *)