%I A127024
%S A127024 58,67,163,232,1467
%N A127024 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n))-f(n) 
               < 1/10^5.
%D A127024 J.-P. Serre, "Lectures on the Mordell-Weil theorem".
%t A127024 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 A127024 Cf. A035484, A127022, A127023, A127025.
%Y A127024 Sequence in context: A033378 A105326 A129546 this_sequence A010338 A127334 
               A039430
%Y A127024 Adjacent sequences: A127021 A127022 A127023 this_sequence A127025 A127026 
               A127027
%K A127024 nonn
%O A127024 1,1
%A A127024 Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007