%I #5 Sep 07 2021 19:38:13
%S 1,1,2,3,5,7,11,14,20,26,35,44,58,72,91,112,139,168,206,246,297,353,
%T 420,494,584,682,798,927,1077,1243,1437,1649,1894,2166,2475,2817,3207,
%U 3636,4121,4658,5261,5926,6673,7494,8412,9425,10550,11788,13166,14677,16352
%N Number of partitions of n into 5 or more distinct parts.
%F G.f.: Sum_{k>=5} x^(k*(k + 1)/2) / Product_{j=1..k} (1 - x^j).
%t nmax = 65; CoefficientList[Series[Sum[x^(k (k + 1)/2)/Product[(1 - x^j), {j, 1, k}], {k, 5, nmax}], {x, 0, nmax}], x] // Drop[#, 15] &
%Y Cf. A111133, A347548, A347549, A347573, A347574, A347575, A347576, A347577.
%K nonn
%O 15,3
%A _Ilya Gutkovskiy_, Sep 07 2021