login
A347762
Number of compositions (ordered partitions) of n into at most 2 prime powers (including 1).
5
1, 1, 2, 3, 4, 5, 5, 5, 6, 7, 7, 7, 8, 7, 7, 6, 8, 7, 9, 7, 10, 8, 7, 5, 10, 7, 9, 9, 10, 7, 12, 7, 14, 10, 13, 8, 14, 5, 11, 8, 12, 7, 12, 7, 12, 10, 11, 5, 16, 7, 15, 8, 12, 5, 17, 6, 14, 8, 11, 5, 16, 7, 13, 8, 14, 6, 18, 5, 16, 10, 14
OFFSET
0,3
MATHEMATICA
Table[Length@Flatten[Permutations/@IntegerPartitions[n, 2, Join[{1}, Select[Range@n, PrimePowerQ]]], 1], {n, 0, 70}] (* Giorgos Kalogeropoulos, Sep 12 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 12 2021
STATUS
approved