A127024 - OEIS

A127024

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

%I #20 Oct 14 2017 05:12:26

%S 58,67,163,232,1467,4075,343732,357711,478233,486396,881967,1003957,

%T 1033466,1045512,1053883,1091706,1208198,1240173,1341615,1844122,

%U 1878006,1964724,2177184,2259143,2276046,2279335,2488542,2691364,2850458,3157407,3262163,3310971

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

%D J.-P. Serre, "Lectures on the Mordell-Weil theorem".

%H Anthony Canu, <a href="/A127024/b127024.txt">Table of n, a(n) for n = 1..50</a>

%t 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^(-5)), AppendTo[a, x]], {x, 1, 1000}]; a

%Y Cf. A035484, A127022, A127023, A127025.

%K nonn

%O 1,1

%A _Artur Jasinski_, Jan 03 2007

%E a(6)-a(32) from _Jon E. Schoenfield_, Sep 04 2017