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 A198471 #24 May 09 2021 13:34:22 %S A198471 20,30,42,66,70,78,88,102,104,114,138,150,174,186,210,220,222,246,258, %T A198471 260,272,282,294,304,308,318,330,340,354,364,366,368,380,390,402,426, %U A198471 438,450,460,462,464,474,476,498,510,532,534,546,550,570,572,580,582,606 %N A198471 Abundant numbers that are smaller than the sum of their deficient divisors. %C A198471 The primitive abundant number sequence (A071395) is a subsequence of this sequence. %H A198471 Amiram Eldar, <a href="/A198471/b198471.txt">Table of n, a(n) for n = 1..10000</a> %e A198471 a(5) = 70 since 70 is smaller than 74, which is the sum of its deficient divisors. %t A198471 totdef[n_] := Total@Select[Divisors@n, DivisorSigma[-1, #] < 2 &]; Select[Range[570], DivisorSigma[-1, #] > 2 && # < totdef[#] &] (* _Giovanni Resta_, Jan 09 2013 *) %o A198471 (PARI) isok(n) = (sigma(n) > 2*n) && (n < sumdiv(n, d, if (sigma(d) < 2*d, d))); \\ _Michel Marcus_, Jun 21 2019 %Y A198471 Cf. A071395, A198471, A125310. %K A198471 nonn %O A198471 1,1 %A A198471 _Timothy L. Tiffin_, Jan 07 2013 %E A198471 a(21)-a(50) from _Giovanni Resta_, Jan 09 2013