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 A127030 #8 Sep 04 2017 19:28:14 %S A127030 652,2608,22905,54295,95041,160874,184867,470884,470884,613399,674707, %T A127030 798611,880111,895056,914998,1024331,1027117,1623312,1678362,1699773, %U A127030 1720078,1826945,1830202,2025665,2089347,2092092,2097388,2133524,2375222,2471017,2614646 %N A127030 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^5. %t A127030 $MaxExtraPrecision = 1000; a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && ((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) < 10^(-5)), AppendTo[a, x]], {x, 1, 100000}]; a %Y A127030 Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, A127029. %K A127030 nonn %O A127030 1,1 %A A127030 _Artur Jasinski_, Jan 03 2007 %E A127030 a(6)-a(31) from _Jon E. Schoenfield_, Sep 04 2017