OFFSET
0,9
COMMENTS
Note that such a partition cannot be strict for n > 1.
Conjecture: If n is squarefree, then a(n) = 0.
EXAMPLE
The n = 1, 4, 8, 9, 12, 16, 18 partitions (D=13):
(1) (22) (3311) (333) (322221) (4444) (444222)
(5111) (332211) (43222111) (444411)
(422211) (43321111) (552222)
(522111) (53221111) (555111)
(531111) (54211111) (771111)
(621111) (63211111) (822222)
(D11111)
For example, the partition (4,3,3,3,3,3,2,2,1,1) has mean 5/2, and its multiplicities (1,5,2,2) also have mean 5/2, so it is counted under a(20).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Mean[#]==Mean[Length/@Split[#]]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 27 2023
STATUS
approved