|
%I #8 Sep 04 2017 19:28:14
%S 652,2608,22905,54295,95041,160874,184867,470884,470884,613399,674707,
%T 798611,880111,895056,914998,1024331,1027117,1623312,1678362,1699773,
%U 1720078,1826945,1830202,2025665,2089347,2092092,2097388,2133524,2375222,2471017,2614646
%N Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^5.
%t $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^(-5)), AppendTo[a, x]], {x, 1, 100000}]; a
%Y Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, A127029.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 03 2007
%E a(6)-a(31) from _Jon E. Schoenfield_, Sep 04 2017
|
