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 A088007 #7 Mar 09 2014 05:02:34
%S A088007 1,2,4,6,8,10,16,18,20,28,32,44,50,52,64,70,88,104,110,128,130,136,
%T A088007 152,174,184,186,196,222,232,246,256,258,272,282,304,315,318,354,366,
%U A088007 368,402,426,438,464,474,496,498,512,534,550,582,592,606,618,642,650,654
%N A088007 Numbers n such that abs(sigma(n) - 2n) <= sqrt(n).
%C A088007 Abundance-radius = abs(sigma(n)-2n) does not exceed square root.
%H A088007 Charles R Greathouse IV, <a href="/A088007/b088007.txt">Table of n, a(n) for n = 1..10000</a>
%t A088007 abu[x_] := Abs[DivisorSigma[1, x]-2*x] Do[If[ !Greater[abu[n], Sqrt[n]//N], Print[n]], {n, 1, 100000}]
%o A088007 (PARI) is(n)=abs(sigma(n)-2*n)<=sqrtint(n) \\ _Charles R Greathouse IV_, Mar 09 2014
%Y A088007 Cf. A077374, A088008-A088012, A000396, A000079, A005100, A005101.
%K A088007 nonn
%O A088007 1,2
%A A088007 _Labos Elemer_, Oct 20 2003
%E A088007 New name from _Charles R Greathouse IV_, Mar 09 2014