A347775 Number of compositions (ordered partitions) of n into at most 5 prime powers (including 1).

1, 1, 2, 4, 8, 16, 30, 55, 94, 151, 227, 326, 450, 603, 786, 1005, 1259, 1543, 1856, 2201, 2571, 2978, 3417, 3896, 4402, 4950, 5506, 6104, 6710, 7366, 8040, 8792, 9526, 10342, 11150, 12042, 12918, 13977, 14975, 16145, 17242, 18514, 19628, 21015, 22170, 23671, 24940

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A000961, A280543, A341134, A347762, A347763, A347764, A347776.

Sequence in context: A046127 A271480 A226454 * A075529 A005305 A298402

Adjacent sequences: A347772 A347773 A347774 * A347776 A347777 A347778

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 13 2021

Status

approved