Help Needed

[Artur]

Next one related
%S A127028 148, 268, 652, 1194, 1332, 1519
%N A127028 Numbers n such that Exp[Pi Sqrt[n]] is closest previous integer  
less than 10^(-3)

%t A127028 a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) >  
0) && ((
Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-3)), AppendTo[a, x]],  
{x, 1, 1000}]; a
%Y A127028 Cf.  
A127021,A127022,A127023,A127024,A127025,A127026,A127027,A127029,A127030
%O A127028 1
%K A127028 ,nonn,
%A A127028 Artur Jasinski (grafix at csl.pl), Jan 03 2007