A327948 Nonunitary weird numbers: numbers that are nonunitary abundant but not nonunitary pseudoperfect.

280, 3344, 16120, 23320, 28768, 31648, 37088, 41720, 42280, 43168, 43960, 45640, 46760, 48440, 50120, 50680, 53480, 54040, 55160, 55720, 59080, 62440, 63560, 64120, 65240, 66920, 67480, 69088, 70280, 71960, 73640, 75320, 75880, 77560, 78680, 79240, 82040

Offset: 1

Author

Amiram Eldar, Sep 30 2019

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

The nonunitary version of A006037.

Cf. A064597, A327945.

Cf. A064114, A292986, A306984, A321146.

Programs

Mathematica

nudiv[n_] := Module[{d = Divisors[n]}, Select[d, GCD[#, n/#] > 1 &]]; s = {}; Do[d = nudiv[n]; If[Total[d] <= n, Continue[]]; c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c == 0, AppendTo[s, n]], {n, 1, 10^5}]; s