OFFSET
1,5
EXAMPLE
a(7) counts these 6 partitions: {6,1}, {5,1,1}, {4,2,1}, {4,1,1,1}, {3,3,1}, {3,2,2}.
MATHEMATICA
Table[Count[IntegerPartitions[n], q_ /; Min[q] < Length[q] <= Max[q]], {n, 60}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 21 2019
STATUS
approved