login
Number of partitions of n into 10 or more parts.
4

%I #4 Sep 06 2021 21:35:19

%S 1,2,4,7,12,19,30,45,67,97,139,194,270,368,499,667,887,1165,1524,1973,

%T 2544,3253,4143,5239,6602,8268,10320,12813,15859,19537,24000,29359,

%U 35820,43541,52795,63803,76929,92476,110926,132694,158414,188649,224231,265916,314793

%N Number of partitions of n into 10 or more parts.

%F G.f.: Sum_{k>=10} x^k / Product_{j=1..k} (1 - x^j).

%t nmax = 54; CoefficientList[Series[Sum[x^k/Product[(1 - x^j), {j, 1, k}], {k, 10, nmax}], {x, 0, nmax}], x] // Drop[#, 10] &

%Y Cf. A000065, A004250, A008639, A035300, A035301, A347542, A347543, A347544, A347545.

%K nonn

%O 10,2

%A _Ilya Gutkovskiy_, Sep 06 2021