A325341 Number of partitions p of n such that min(p) <= (number of parts of p) < max(p).

0, 0, 0, 1, 2, 3, 4, 7, 10, 15, 21, 29, 39, 54, 71, 95, 124, 163, 209, 271, 344, 440, 554, 700, 874, 1095, 1357, 1685, 2076, 2559, 3132, 3837, 4671, 5687, 6889, 8343, 10058, 12123, 14552, 17459, 20875, 24941, 29706, 35358, 41966, 49768, 58875, 69587, 82061

Offset

1,5

Links

Table of n, a(n) for n=1..49.

Example

a(7) counts these 4 partitions: {6,1}, {5,2}, {5,1,1}, {4,2,1}.

Mathematica

Table[Count[IntegerPartitions[n], q_ /; Min[q] <= Length[q] < Max[q]], {n, 60}]

Crossrefs

Cf. A000041, A325340, A325342, A325343.

Sequence in context: A267459 A330357 A145467 * A039841 A078159 A129490

Adjacent sequences: A325338 A325339 A325340 * A325342 A325343 A325344

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2019

Status

approved