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

0, 0, 0, 1, 1, 2, 3, 6, 9, 13, 18, 26, 35, 50, 66, 90, 117, 155, 199, 260, 331, 425, 537, 681, 852, 1070, 1328, 1652, 2038, 2517, 3083, 3783, 4609, 5618, 6811, 8257, 9959, 12014, 14429, 17322, 20721, 24771, 29515, 35147, 41730, 49507, 58585, 69267, 81705

Offset

1,6

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A000041, A325341, A325342, A325343.

Sequence in context: A306777 A062891 A018599 * A018347 A308824 A039903

Adjacent sequences: A325337 A325338 A325339 * A325341 A325342 A325343

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2019

Status

approved