|
%I #8 Sep 04 2017 19:27:33
%S 37,58,67,163,232,719,1169,1467,4075,5773,19183,33563,65477,67893,
%T 68996,70273,81194,90857,106194,112070,117434,120332,122456,133074,
%U 167196,210500,226081,254883,261084,263987,270154,281128,298455,301487,313447,321349,325779
%N Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n)) - f(n) < 1/10^4.
%t 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 Cf. A035484, A127022, A127024, A127025.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 03 2007
%E a(9)-a(37) from _Jon E. Schoenfield_, Sep 04 2017
|
