OFFSET
0,3
EXAMPLE
The a(1) = 1 through a(8) = 11 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (21) (22) (32) (33) (43) (44)
(111) (31) (41) (42) (52) (53)
(1111) (11111) (51) (61) (62)
(222) (421) (71)
(321) (1111111) (431)
(2211) (521)
(111111) (2222)
(3221)
(3311)
(11111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Mean[#]==Mean[Union[#]]&]], {n, 0, 30}]
CROSSREFS
For multiplicities instead of distinct parts we have A360068.
These partitions have ranks A360247.
A008284 counts partitions by number of parts.
A116608 counts partitions by number of distinct parts.
A360071 counts partitions by number of parts and number of distinct parts.
A360241 counts partitions whose distinct parts have integer mean.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 04 2023
STATUS
approved