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 A127027 #9 Sep 04 2017 19:27:49
%S A127027 103,148,164,205,223,226,268,359,630,652,940,1005,1194,1213,1332,1353,
%T A127027 1441,1481,1519,1750,1823,1825,1835,1930,1951,1961,2309,2339,2347,
%U A127027 2357,2498,2511,2527,2554,2608,2683,3086,3108,3157,3377,3646,3653,3656,3738,3762
%N A127027 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^2.
%t A127027 a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-2)), AppendTo[a, x]], {x, 1, 1000}]; a
%t A127027 epsQ[n_]:=Module[{c=Exp[Pi*Sqrt[n]],min=1/10^2},0<c-Floor[c]<min]; Select[ Range[2000],epsQ] (* _Harvey P. Dale_, Apr 06 2012 *)
%Y A127027 Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127028, A127029, A127030.
%K A127027 nonn
%O A127027 1,1
%A A127027 _Artur Jasinski_, Jan 03 2007
%E A127027 Corrected by _Harvey P. Dale_, Apr 06 2012
%E A127027 a(27)-a(45) from _Jon E. Schoenfield_, Sep 04 2017