A347573 Number of partitions of n into 6 or more distinct parts.

1, 1, 2, 3, 5, 7, 11, 15, 21, 28, 38, 49, 65, 82, 105, 132, 165, 203, 251, 305, 371, 447, 537, 640, 763, 901, 1063, 1248, 1461, 1702, 1981, 2294, 2652, 3056, 3514, 4028, 4611, 5261, 5994, 6814, 7732, 8754, 9900, 11170, 12587, 14160, 15906, 17839, 19985, 22352

Offset: 21

Author

Ilya Gutkovskiy, Sep 07 2021

Keywords

• nonn

Crossrefs

Cf. A111133, A347548, A347549, A347572, A347574, A347575, A347576, A347577.

Programs

Mathematica

nmax = 70; CoefficientList[Series[Sum[x^(k (k + 1)/2)/Product[(1 - x^j), {j, 1, k}], {k, 6, nmax}], {x, 0, nmax}], x] // Drop[#, 21] &

Formula

G.f.: Sum_{k>=6} x^(k*(k + 1)/2) / Product_{j=1..k} (1 - x^j).