OFFSET
1,3
COMMENTS
The median of an odd-length partition is the middle part.
A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.
EXAMPLE
The a(n) partitions for n = {1, 3, 9, 14, 15, 18, 20, 22} (A..M = 10..22):
1 3 9 E F I K M
111 333 2222222 555 666 44444 22222222222
111111111 3222221 33333 222222222 54443 32222222221
3322211 43332 322222221 64442 33222222211
4222211 53331 332222211 65441 33322222111
63321 422222211 74432 42222222211
111111111111111 432222111 74441 43222222111
522222111 84431 44222221111
94421 52222222111
53222221111
62222221111
MATHEMATICA
modes[ms_]:=Select[Union[ms], Count[ms, #]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n], OddQ[Length[#]]&&{Mean[#]}=={Median[#]}==modes[#]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 21 2023
STATUS
approved