cp's OEIS Frontend

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.

A127025 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n)) - f(n) < 1/10^6.

This page as a plain text file.
%I A127025 #65 Jan 31 2024 08:02:26
%S A127025 58,163,1467,478233,881967,1053883,1341615,1844122,3498092,6069493,
%T A127025 6396611,8707530,10414308,13340780,16039620,17013933,17226343,
%U A127025 18577932,19390220,21991290,24529596,26202225,26634713,26651262,26848308,27497372,32149837,35437319,35892748
%N A127025 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n)) - f(n) < 1/10^6.
%H A127025 Anthony Canu, <a href="/A127025/b127025.txt">Table of n, a(n) for n = 1..182</a>
%t A127025 a = {}; Do[If[(1 - (Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (1 - ( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-6)), AppendTo[a, x]], {x, 1, 1000}]; a
%o A127025 (PARI) is(n)=my(t);default(realprecision, 40);default(realprecision, Pi*sqrt(n)\log(10)+40); t=exp(Pi*sqrt(n));ceil(t)-t<1e-6 \\ _Charles R Greathouse IV_, Feb 20 2012
%Y A127025 Cf. A035484, A127022, A127023, A127024.
%K A127025 nonn
%O A127025 1,1
%A A127025 _Artur Jasinski_, Jan 03 2007
%E A127025 a(4)-a(20) from _Charles R Greathouse IV_, Feb 20 2012
%E A127025 a(21)-a(36) from _Charles R Greathouse IV_, Feb 23 2012