|
|
A359898
|
|
Number of strict integer partitions of n whose parts do not have the same mean as median.
|
|
9
|
|
|
0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 4, 6, 5, 11, 12, 14, 21, 29, 26, 44, 44, 58, 68, 92, 92, 118, 137, 165, 192, 241, 223, 324, 353, 405, 467, 518, 594, 741, 809, 911, 987, 1239, 1276, 1588, 1741, 1823, 2226, 2566, 2727, 3138, 3413, 3905, 4450, 5093, 5434, 6134
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,9
|
|
LINKS
|
|
|
EXAMPLE
|
The a(7) = 1 through a(13) = 11 partitions:
(4,2,1) (4,3,1) (6,2,1) (5,3,2) (5,4,2) (6,5,1) (6,4,3)
(5,2,1) (5,4,1) (6,3,2) (7,3,2) (6,5,2)
(6,3,1) (6,4,1) (8,3,1) (7,4,2)
(7,2,1) (7,3,1) (9,2,1) (7,5,1)
(8,2,1) (6,3,2,1) (8,3,2)
(5,3,2,1) (8,4,1)
(9,3,1)
(10,2,1)
(5,4,3,1)
(6,4,2,1)
(7,3,2,1)
|
|
MATHEMATICA
|
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Mean[#]!=Median[#]&]], {n, 0, 30}]
|
|
CROSSREFS
|
The complement is counted by A359897.
A008289 counts strict partitions by mean.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|