OFFSET
0,6
EXAMPLE
The a(4) = 1 through a(8) = 13 partitions:
(211) (221) (411) (322) (332)
(311) (3111) (331) (422)
(2111) (21111) (421) (431)
(511) (521)
(2221) (611)
(3211) (4211)
(4111) (5111)
(22111) (22211)
(31111) (32111)
(211111) (41111)
(221111)
(311111)
(2111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Mean[#]!=Median[#]&]], {n, 0, 30}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 20 2023
STATUS
approved