login
A347764
Number of compositions (ordered partitions) of n into at most 4 prime powers (including 1).
5
1, 1, 2, 4, 8, 15, 25, 40, 59, 81, 106, 136, 170, 208, 251, 294, 339, 383, 431, 476, 530, 583, 642, 696, 757, 804, 866, 914, 980, 1041, 1125, 1167, 1256, 1312, 1405, 1466, 1598, 1657, 1790, 1840, 1961, 2004, 2148, 2160, 2335, 2365, 2505, 2502, 2707, 2664, 2884
OFFSET
0,3
MATHEMATICA
Table[Length@Flatten[Permutations/@IntegerPartitions[n, 4, Join[{1}, Select[Range@n, PrimePowerQ]]], 1], {n, 0, 50}] (* Giorgos Kalogeropoulos, Sep 12 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 12 2021
STATUS
approved