A358909 Number of integer partitions of n whose parts have weakly decreasing numbers of prime factors (A001222).
1, 1, 2, 3, 5, 7, 11, 15, 22, 29, 41, 53, 73, 93, 124, 157, 206, 256, 329, 406, 514, 628, 784, 949, 1174, 1411, 1725, 2061, 2500, 2966, 3570, 4217, 5039, 5919, 7027, 8219, 9706, 11301, 13268, 15394, 17995, 20792, 24195, 27863, 32288, 37061, 42779, 48950, 56306
Offset: 0
Keywords
Crossrefs
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],GreaterEqual@@PrimeOmega/@#&]],{n,0,30}]
Comments