|
|
A352128
|
|
Number of strict integer partitions of n with (1) as many even parts as odd parts, and (2) as many even conjugate parts as odd conjugate parts.
|
|
5
|
|
|
1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 2, 0, 2, 2, 3, 0, 3, 0, 2, 2, 5, 2, 5, 4, 6, 7, 7, 8, 8, 9, 9, 13, 9, 14, 12, 20, 13, 25, 17, 33, 23, 40, 26, 50, 33, 59, 39, 68, 45, 84, 58, 92, 70, 115, 88, 132, 109, 156, 139, 182, 172, 212, 211
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,19
|
|
LINKS
|
|
|
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
|
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 two other double-pairings of statistics:
Cf. A000070, A014105, A088218, A098123, A195017, A236559, A236914, A241638, A325700, A350839, A350941.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|