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