|
|
A352129
|
|
Number of strict integer partitions of n with as many even conjugate parts as odd conjugate parts.
|
|
11
|
|
|
1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 2, 1, 3, 2, 3, 4, 3, 5, 5, 6, 6, 9, 8, 10, 12, 13, 15, 17, 20, 20, 26, 26, 32, 35, 39, 44, 50, 55, 61, 71, 76, 87, 96, 108, 117, 135, 145, 164, 181, 200, 222, 246, 272, 298, 334, 363, 404, 443
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,14
|
|
LINKS
|
|
|
EXAMPLE
|
The a(n) strict partitions for selected n:
n = 3 13 15 18 20 22
------------------------------------------------------------------
(2,1) (6,5,2) (10,5) (12,6) (12,7,1) (12,8,2)
(6,4,2,1) (6,4,3,2) (8,7,3) (8,5,4,3) (8,6,5,3)
(6,5,3,1) (8,5,3,2) (8,6,4,2) (8,7,5,2)
(8,6,3,1) (8,7,4,1) (12,7,2,1)
(8,6,3,2,1) (8,6,4,3,1)
(8,7,4,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[conj[#], _?OddQ]==Count[conj[#], _?EvenQ]&]], {n, 0, 30}]
|
|
CROSSREFS
|
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
There are four other pairings of statistics:
There are three double-pairings of statistics:
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|