%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