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

1, 1, 2, 4, 7, 11, 15, 20, 24, 29, 34, 40, 45, 52, 55, 58, 62, 67, 69, 76, 79, 87, 88, 92, 89, 100, 96, 106, 109, 121, 111, 127, 125, 140, 139, 158, 149, 173, 152, 168, 159, 184, 156, 196, 168, 193, 173, 206, 173, 220, 186, 222, 201, 236, 185, 243, 203, 252

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A000961, A280543, A282064, A347762, A347764.

Sequence in context: A250621 A003068 A194168 * A198759 A078617 A199085

Adjacent sequences: A347760 A347761 A347762 * A347764 A347765 A347766

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 12 2021

Status

approved