OFFSET
0,9
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}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 20 2023
STATUS
approved