OFFSET
1,1
COMMENTS
Abundant numbers that are not the sum of any subset of their aliquot divisors, and are also not the sum of all the aliquot divisors of any other number.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3776
MATHEMATICA
weirdQ[n_] := Module[{d = Most[Divisors[n]]}, If[Total[d] <= n, False, SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n] == 0]]; seq[max_] := Module[{s = Table[0, {n, 1, max}], i}, Do[If[(i = DivisorSigma[1, n] - n) <= max, s[[i]]++], {n, 2, (max - 1)^2}]; Select[Position[s, 0] // Flatten, weirdQ]]; seq[8000]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 24 2022
STATUS
approved