A348714 Numbers whose divisors can be partitioned into two disjoint sets with equal arithmetic mean in a record number of ways.
1, 6, 24, 30, 60, 120, 168, 180, 240, 360, 420, 720, 840, 1260
Offset: 1
Examples
6 is the smallest number whose set of divisors can be partitioned into two disjoint sets with equal arithmetic mean: {3} and {1, 2, 6}.
24 is the smallest number whose set of divisors can be partitioned into two disjoint sets with equal arithmetic mean in two ways: ({3, 12}, {1, 2, 4, 6, 8, 24}) and ({1, 2, 3, 24}, {4, 6, 8, 12}).
Programs
-
Mathematica
c[n_] := Count[Subsets[(d = Divisors[n])], _?(Mean[#] == Mean[Complement[d, #]] &)]/2; cm = -1; s = {}; Do[If[(c1 = c[n]) > cm, cm = c1; AppendTo[s, n]], {n, 1, 250}]; s
Comments