OFFSET
1,4
EXAMPLE
a(6) = 4 counts these partitions: 3111, 2211, 21111, 111111.
MATHEMATICA
z = 60; q[n_] := q[n] = IntegerPartitions[n]; t[p_] := t[p] = Length[p];
Table[Count[q[n], p_ /; Max[p] + Min[p] < t[p]], {n, z}] (* A237822 *)
Table[Count[q[n], p_ /; Max[p] + Min[p] <= t[p]], {n, z}] (* A237823 *)
Table[Count[q[n], p_ /; Max[p] + Min[p] == t[p]], {n, z}] (* A237869 *)
Table[Count[q[n], p_ /; Max[p] + Min[p] > t[p]], {n, z}] (* A237870 *)
Table[Count[q[n], p_ /; Max[p] + Min[p] >= t[p]], {n, z}] (* A237871 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 18 2014
STATUS
approved