OFFSET
1,1
EXAMPLE
150 is a term since its unitary divisors, {1, 2, 3, 6, 25, 50, 75, 150} can be partitioned in two disjoint sets of equal sum: 1 + 2 + 3 + 25 + 50 + 75 = 6 + 150, and so are its nonunitary divisors, {5, 10, 15, 30}: 5 + 10 + 15 = 30.
MATHEMATICA
zumQ[n_] := Module[{d = Divisors[n], ud, nd, sumUd, sumNd, x}, ud = Select[d, CoprimeQ[#, n/#] &]; nd = Complement[d, ud]; sumUd = Plus @@ ud; sumNd = Plus @@ nd; sumUd >= 2*n && sumNd > 0 && EvenQ[sumUd] && EvenQ[sumNd] && CoefficientList[Product[1 + x^i, {i, ud}], x][[1 + sumUd/2]] > 0 && CoefficientList[Product[1 + x^i, {i, nd}], x][[1 + sumNd/2]] > 0]; Select[Range[10000], zumQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 25 2020
STATUS
approved