OFFSET
1,3
COMMENTS
Note that such a partition is necessarily strict.
EXAMPLE
The a(8) = 6 integer partitions are (8), (71), (62), (53), (521), (431).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], UnsameQ@@Mean/@Union[Subsets[#]]&]], {n, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 29 2018
STATUS
approved