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