DouKaku?

1以上200未満の整数nのうち、 exp(pi * sqrt(n))がほとんど整数であるようなnを求めるコードを書いてください。 なお、expは底がeである指数関数 - Wikipedia、 piは円周率、sqrtは平方根です。また「ほとんど整数である」とは 整数からプラスマイナス0.0001の範囲にあることとします。

Pythonで34行のスクリプトを書いて得られた出力の例が下のようになります。

37 199148647.999978
58 24591257752.000000
67 147197952743.999999
163 262537412640768744.000000 

この問題は光成さんに教えて頂いた e^{π*sqrt{163}}≒26253741640768744 が元になっています。ご協力ありがとうございました。

Rは倍精度実数しか扱えないのと，nが67のときでも誤差がかなり大きいので，37と58しか拾えない
> (1:67)[abs((exp(pi*sqrt(1:67))-round(exp(pi*sqrt(1:67))))) < 0.0001]
[1] 37 58

1

(1:67)[abs((exp(pi*sqrt(1:67))-round(exp(pi*sqrt(1:67))))) < 0.0001]