%I A127023
%S A127023 37,58,67,163,232,719,1169,1467
%N A127023 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n))-f(n) 
               < 1/10^4.
%t A127023 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^(-4)), AppendTo[a, 
               x]], {x, 1, 1000}]; a
%Y A127023 Cf. A035484, A127022, A127024, A127025.
%Y A127023 Sequence in context: A108273 A045223 A134222 this_sequence A109166 A090798 
               A000928
%Y A127023 Adjacent sequences: A127020 A127021 A127022 this_sequence A127024 A127025 
               A127026
%K A127023 nonn
%O A127023 1,1
%A A127023 Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007