This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A327948 #12 Mar 27 2023 03:38:24
%S A327948 280,3344,16120,23320,28768,31648,37088,41720,42280,43168,43960,45640,
%T A327948 46760,48440,50120,50680,53480,54040,55160,55720,59080,62440,63560,
%U A327948 64120,65240,66920,67480,69088,70280,71960,73640,75320,75880,77560,78680,79240,82040
%N A327948 Nonunitary weird numbers: numbers that are nonunitary abundant but not nonunitary pseudoperfect.
%H A327948 Amiram Eldar, <a href="/A327948/b327948.txt">Table of n, a(n) for n = 1..10000</a>
%t A327948 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
%Y A327948 The nonunitary version of A006037.
%Y A327948 Cf. A064597, A327945.
%Y A327948 Cf. A064114, A292986, A306984, A321146.
%K A327948 nonn
%O A327948 1,1
%A A327948 _Amiram Eldar_, Sep 30 2019