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,3

Links

Table of n, a(n) for n=21..70.

Formula

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

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] &

Crossrefs

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

Sequence in context: A026813 A008636 A008630 * A238865 A326978 A035969

Adjacent sequences: A347570 A347571 A347572 * A347574 A347575 A347576

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 07 2021

Status

approved