OFFSET
0,11
COMMENTS
The Heinz numbers of these partitions are given by A326646.
LINKS
Wikipedia, Geometric mean
EXAMPLE
The a(30) = 7 partitions:
(27,3)
(24,6)
(24,3,3)
(16,8,2,2,2)
(9,9,9,1,1,1)
(8,8,8,2,2,2)
(8,8,4,4,1,1,1,1,1,1)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !SameQ@@#&&IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 16 2019
STATUS
approved