A347762 Number of compositions (ordered partitions) of n into at most 2 prime powers (including 1).
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
Keywords
Programs
-
Mathematica
Table[Length@Flatten[Permutations/@IntegerPartitions[n,2,Join[{1},Select[Range@n,PrimePowerQ]]],1],{n,0,70}] (* Giorgos Kalogeropoulos, Sep 12 2021 *)