OFFSET
1,1
COMMENTS
All terms are perfect squares.
EXAMPLE
576 is a term because it has 20 proper divisors and 1+2+3+4+6+8+24+48+192+288 = 576.
MATHEMATICA
q[n_] := Module[{d = Most @ Divisors[n], nd, ans = False}, nd = Length[d]; Do[If[Plus @@ Subsets[d, {nd/2}, {k}][[1]] == n, ans = True; Break[]], {k, 1, Binomial[nd, nd/2]}]; ans]; Select[Range[136]^2, q] (* Amiram Eldar, Mar 11 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Metin Sariyar, Mar 10 2021
EXTENSIONS
a(8)-a(43) from Alois P. Heinz, Mar 10 2021
STATUS
approved