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,3

Links

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

Mathematica

Table[Length@Flatten[Permutations/@IntegerPartitions[n, 6, Join[{1}, Select[Range@n, PrimePowerQ]]], 1], {n, 0, 43}] (* Giorgos Kalogeropoulos, Sep 13 2021 *)

Crossrefs

Cf. A000961, A280543, A341135, A347762, A347763, A347764, A347775.

Sequence in context: A226188 A239556 A152718 * A006775 A104993 A223940

Adjacent sequences: A347773 A347774 A347775 * A347777 A347778 A347779

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 13 2021

Status

approved