OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
nonZumQ[n_] := Module[{d = Divisors[n], sum, x}, sum = Plus @@ d; sum >= 2*n && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] == 0]; dm = 0; s = {}; Do[d = DivisorSigma[0, n]; If[d > dm, q = nonZumQ[n]; If[q && d > dm, dm = d; AppendTo[s, n]]], {n, 1, 60000}]; s
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Sep 17 2020
EXTENSIONS
a(8)-a(9) from Amiram Eldar, Apr 04 2023
STATUS
approved