OFFSET
1,1
COMMENTS
The arithmetic mean of each of the two subsets is equal to the arithmetic mean of all the divisors of the number.
Also, numbers whose divisors can be partitioned into two disjoint sets with equal harmonic mean. This definition is equivalent since the harmonic mean of a subset {d_i} of the divisors of k is equal to k/<k/d_i>, where <k/d_i> is the arithmetic mean over the complementary divisors k/d_i.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..872
EXAMPLE
6 is a term since its set of divisors, {1, 2, 3, 6}, can be partitioned into the two disjoint sets, {3} and {1, 2, 6}, whose arithmetic means are both 3.
MATHEMATICA
q[n_] := Module[{d = Divisors[n], nd, m, s, subs, ans = False}, nd = Length[d]; m = Plus @@ d/nd; subs = Subsets[d]; Do[s = subs[[k]]; If[0 < Length[s] < nd && Mean[s] == m, ans = True; Break[]], {k, 1, Length[subs]}]; ans]; Select[Range[300], q]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 31 2021
STATUS
approved