OFFSET
0,4
EXAMPLE
The a(1) = 1 through a(9) = 7 partitions:
(1) (2) (3) (4) (5) (6) (7) (8) (9)
(2,1) (3,1) (3,2) (4,2) (4,3) (5,3) (5,4)
(4,1) (5,1) (5,2) (6,2) (6,3)
(3,2,1) (6,1) (7,1) (7,2)
(8,1)
(4,3,2)
(5,3,1)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Mean[#]==Median[#]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 20 2023
STATUS
approved