%I A127029
%S A127029 652,2608,5868,14370
%N A127029 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) 
               < 1/10^4.
%p A127029 $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^(-4)), AppendTo[a, x]], {x, 1, 20000}]; a
%Y A127029 Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, 
               A127030.
%Y A127029 Sequence in context: A110850 A048915 A002232 this_sequence A127030 A127031 
               A089673
%Y A127029 Adjacent sequences: A127026 A127027 A127028 this_sequence A127030 A127031 
               A127032
%K A127029 nonn
%O A127029 1,1
%A A127029 Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007