A347542 Number of partitions of n into 6 or more parts.

1, 2, 4, 7, 12, 19, 30, 44, 65, 92, 130, 178, 244, 326, 435, 571, 747, 964, 1242, 1581, 2009, 2530, 3178, 3962, 4930, 6094, 7518, 9225, 11296, 13768, 16751, 20295, 24546, 29583, 35591, 42685, 51112, 61028, 72757, 86523, 102740, 121720, 144007, 170018, 200461, 235910, 277270

Offset

6,2

Links

Table of n, a(n) for n=6..52.

Formula

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

Mathematica

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

Crossrefs

Cf. A000065, A001402, A004250, A035300, A035301, A347543, A347544, A347545, A347547.

Sequence in context: A036439 A175965 A288341 * A035298 A288342 A347543

Adjacent sequences: A347539 A347540 A347541 * A347543 A347544 A347545

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 06 2021

Status

approved