OFFSET
1,6
COMMENTS
Also partitions satisfying (maximum) = 2*(mean).
These are partitions whose diagram has the same size as its complement (see example).
EXAMPLE
The a(6) = 2 through a(12) = 10 partitions:
(411) . (4211) (621) (5221) . (822)
(3111) (321111) (5311) (831)
(42211) (6222)
(43111) (6321)
(6411)
(422211)
(432111)
(441111)
(32211111)
(33111111)
The partition y = (6,4,1,1) has diagram:
o o o o o o
o o o o . .
o . . . . .
o . . . . .
Since the partition and its complement (shown in dots) have the same size, y is counted under a(12).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Length[#]*Max@@#==2n&]], {n, 30}]
CROSSREFS
For minimum instead of mean we have A118096.
For length instead of mean we have A237753.
The strict case is A361854.
These partitions have ranks A361855.
A051293 counts subsets with integer mean.
A067538 counts partitions with integer mean.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 29 2023
STATUS
approved