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 A182225 #11 Sep 08 2019 02:43:36 %S A182225 12,24,30,36,40,42,48,54,56,60,66,72,80,84,90,96,100,108,112,120,126, %T A182225 132,140,144,150,156,160,162,168,176,180,192,198,200,204,208,210,216, %U A182225 220,224,228,234,240,252,260,264,270,272,276,280,288,294,300,304,306,308,312 %N A182225 Numbers m such that the sum of their divisors smaller than A033880(m) is greater than A033880(m). %C A182225 Motivated by A100696. Subsequence of A005101: all terms are abundant. %H A182225 Amiram Eldar, <a href="/A182225/b182225.txt">Table of n, a(n) for n = 1..10000</a> %t A182225 aQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && DivisorSum[n, # &, # < ab &] > ab; Select[Range[312], aQ] (* _Amiram Eldar_, Sep 08 2019 *) %o A182225 (PARI) is_A182225(n)=my(L=sigma(n)-2*n,s=L);fordiv(n,d,d<L||return;(s-=d)<0&return(1)) %K A182225 nonn %O A182225 1,1 %A A182225 _M. F. Hasler_, Apr 19 2012