OFFSET
1,1
EXAMPLE
24 is a term since there is only one partition of its set of nonunitary divisors, {2, 4, 6, 12}, into two disjoint sets of equal sum: {2, 4, 6} and {12}.
MATHEMATICA
nuzQ[n_] := Module[{d = Select[Divisors[n], GCD[#, n/#] > 1 &], sum, x}, sum = Plus @@ d; sum > 0 && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] == 2]; Select[Range[12000], nuzQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 25 2020
STATUS
approved