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 A306984 #8 Mar 25 2023 05:28:13
%S A306984 70,4030,5390,5830,7192,7400,7912,9272,10430,10570,10792,10990,11410,
%T A306984 11690,11830,12110,12530,12670,13370,13510,13790,13930,14770,15610,
%U A306984 15890,16030,16310,16730,16870,17272,17570,17920,17990,18410,18830,18970,19390,19670
%N A306984 Infinitary weird numbers: infinitary abundant numbers (A129656) that are not infinitary pseudoperfect numbers (A306983).
%C A306984 Differs from bi-unitary weird numbers from n >= 32 (a(32) = 17920 is not bi-unitary weird).
%H A306984 Amiram Eldar, <a href="/A306984/b306984.txt">Table of n, a(n) for n = 1..10000</a>
%t A306984 idivs[x_] := If[x == 1, 1, Sort@ Flatten@ Outer[Times, Sequence @@ (FactorInteger[ x ] /. {p_, m_Integer} :> p^Select[Range[0, m], BitOr[m, #] == m &])]] ;s = {}; Do[d = Most[idivs[n]]; If[Total[d]<n,Continue[]]; c = SeriesCoefficient[ Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c < 1, AppendTo[s, n]], {n,2,10000}]; s
%Y A306984 Cf. A006037, A049417, A064114, A126168, A129656, A292986, A321146, A306983.
%K A306984 nonn
%O A306984 1,1
%A A306984 _Amiram Eldar_, Mar 18 2019