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

Author

Clark Kimberling, Apr 21 2019

Keywords

• nonn
• easy

Examples

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

Crossrefs

Cf. A000041, A325341, A325342, A325343.

Programs

Mathematica

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