Help Needed

[Artur]

I was contributed
%S A127021 6, 17, 18, 22, 25, 37, 43, 58, 59, 67, 74, 149, 163, 177, 232,  
267, 326, 386,
522, 566, 638, 719, 790, 792, 928, 986, 1014, 1169, 1245, 1257, 1293, 1326,
1467, 1556, 1850, 1872, 1960
%N A127021 Numbers n such that Exp[Pi Sqrt[n]] is closest next integer  
less than 10^(-2)

%t A127021 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^(-2)), AppendTo[a, x]], {x,  
1, 1000}]; a
%Y A127021 Cf. A127021,A127022,A127023,A127024,A127025
%O A127021 1
%K A127021 ,nonn,
%A A127021 Artur Jasinski (grafix at csl.pl), Jan 03 2007