OFFSET
0,11
EXAMPLE
The a(n) strict partitions for selected n:
n = 3 10 14 18 21 24
----------------------------------------------------------------------
(2,1) (6,4) (8,6) (10,8) (11,10) (8,7,5,4)
(4,3,2,1) (5,4,3,2) (6,5,4,3) (8,6,4,3) (9,8,4,3)
(6,5,2,1) (7,6,3,2) (8,7,4,2) (10,8,4,2)
(8,7,2,1) (10,8,2,1) (10,9,3,2)
(6,5,4,3,2,1) (11,10,2,1)
(8,6,4,3,2,1)
MATHEMATICA
conj[y_]:=If[Length[y]==0, y, Table[Length[Select[y, #>=k&]], {k, 1, Max[y]}]];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Count[#, _?EvenQ]==Count[conj[#], _?OddQ]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 15 2022
STATUS
approved