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,1

Links

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

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

Crossrefs

The nonunitary version of A006037.

Cf. A064597, A327945.

Cf. A064114, A292986, A306984, A321146.

Sequence in context: A234458 A234452 A297510 * A187384 A297724 A024214

Adjacent sequences: A327945 A327946 A327947 * A327949 A327950 A327951

Keyword

nonn

Author

Amiram Eldar, Sep 30 2019

Status

approved