OFFSET
0,3
COMMENTS
The Heinz numbers of these partitions are given by A326645.
LINKS
Wikipedia, Geometric mean
EXAMPLE
The a(4) = 3 through a(10) = 6 partitions (A = 10):
(4) (5) (6) (7) (8) (9) (A)
(22) (11111) (33) (1111111) (44) (333) (55)
(1111) (222) (2222) (111111111) (82)
(111111) (11111111) (91)
(22222)
(1111111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]], {n, 0, 30}]
CROSSREFS
Partitions with integer mean are A067538.
Partitions with integer geometric mean are A067539.
Non-constant partitions with integer mean and geometric mean are A326642.
Subsets with integer mean and geometric mean are A326643.
Heinz numbers of partitions with integer mean and geometric mean are A326645.
Strict partitions with integer mean and geometric mean are A326029.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 16 2019
STATUS
approved