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 A083873 #15 Oct 20 2022 09:10:39
%S A083873 20,70,272,550,945,1575,3465,15015,47025,81081,153153,692835,1851759,
%T A083873 3633903,6084351,22309287,95009481,131339637,277272567,1321122231,
%U A083873 1516844043,5391411025,28816162375,40342627325,181667110625,186096635725,213239601575
%N A083873 Primitive abundant numbers that set a new record for number of divisors.
%t A083873 abQ[n_] := DivisorSigma[-1, n] > 2; defQ[n_] := DivisorSigma[-1, n] < 2; primQ[n_] := abQ[n] && AllTrue[n/FactorInteger[n][[;; , 1]], defQ]; s = {}; dm = 0; Do[If[(d = DivisorSigma[0, n]) > dm && primQ[n], dm = d; AppendTo[s, n]], {n, 1, 10^6}]; s (* _Amiram Eldar_, Oct 20 2022 *)
%Y A083873 Cf. A000005, A071395.
%K A083873 nonn
%O A083873 1,1
%A A083873 _Jason Earls_, Jun 18 2003
%E A083873 More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Jan 02 2006
%E A083873 a(20)-a(24) from _Donovan Johnson_, Apr 09 2010
%E A083873 a(25)-a(27) from _Donovan Johnson_, Oct 21 2012