OFFSET
0,19
EXAMPLE
The a(n) strict partitions for selected n:
n = 3 18 22 28 31 32
-----------------------------------------------------------------------
(2,1) (8,5,3,2) (8,6,5,3) (12,7,5,4) (10,7,5,4,3,2) (12,8,7,5)
(8,6,3,1) (8,7,5,2) (12,8,5,3) (10,7,6,5,2,1) (12,9,7,4)
(12,7,2,1) (12,9,5,2) (10,8,5,4,3,1) (16,9,4,3)
(16,9,2,1) (10,9,6,3,2,1) (12,10,7,3)
(12,10,5,1) (12,11,7,2)
(16,11,4,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[#, _?OddQ]==Count[#, _?EvenQ]&&Count[conj[#], _?OddQ]==Count[conj[#], _?EvenQ]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 15 2022
STATUS
approved