|
|
A364193
|
|
Number of integer partitions of n where the least part is the unique mode.
|
|
2
|
|
|
0, 1, 2, 2, 4, 4, 7, 9, 13, 17, 24, 32, 43, 58, 75, 97, 130, 167, 212, 274, 346, 438, 556, 695, 865, 1082, 1342, 1655, 2041, 2511, 3067, 3756, 4568, 5548, 6728, 8130, 9799, 11810, 14170, 16980, 20305, 24251, 28876, 34366, 40781, 48342, 57206, 67597, 79703
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.
|
|
LINKS
|
|
|
EXAMPLE
|
The a(1) = 1 through a(8) = 13 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (311) (33) (322) (44)
(211) (2111) (222) (511) (422)
(1111) (11111) (411) (3211) (611)
(3111) (4111) (2222)
(21111) (22111) (4211)
(111111) (31111) (5111)
(211111) (32111)
(1111111) (41111)
(221111)
(311111)
(2111111)
(11111111)
|
|
MATHEMATICA
|
Table[If[n==0, 0, Length[Select[IntegerPartitions[n], Last[Length/@Split[#]]>Max@@Most[Length/@Split[#]]&]]], {n, 0, 30}]
|
|
CROSSREFS
|
For greatest part and multiple modes we have A171979.
Allowing multiple modes gives A240303.
For mean instead of least part we have A363723.
These partitions have ranks A364160.
Ranking and counting partitions:
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|