|
|
A352130
|
|
Number of strict integer partitions of n with as many odd parts as even conjugate parts.
|
|
8
|
|
|
1, 0, 1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 4, 5, 6, 7, 7, 8, 9, 11, 12, 13, 14, 16, 18, 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, 60, 65, 72, 79, 86, 93, 102, 111, 121, 132, 143, 155, 169, 183, 197, 213, 231, 251, 271, 292, 315, 340, 367, 396
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
LINKS
|
|
|
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
|
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:
Cf. A027187, A027193, A103919, A122111, A236559, A325039, A344607, A344651, A345196, A350950, A350951.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|