|
%I #9 Sep 04 2017 19:27:49
%S 103,148,164,205,223,226,268,359,630,652,940,1005,1194,1213,1332,1353,
%T 1441,1481,1519,1750,1823,1825,1835,1930,1951,1961,2309,2339,2347,
%U 2357,2498,2511,2527,2554,2608,2683,3086,3108,3157,3377,3646,3653,3656,3738,3762
%N Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^2.
%t a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-2)), AppendTo[a, x]], {x, 1, 1000}]; a
%t epsQ[n_]:=Module[{c=Exp[Pi*Sqrt[n]],min=1/10^2},0<c-Floor[c]<min]; Select[ Range[2000],epsQ] (* _Harvey P. Dale_, Apr 06 2012 *)
%Y Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127028, A127029, A127030.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 03 2007
%E Corrected by _Harvey P. Dale_, Apr 06 2012
%E a(27)-a(45) from _Jon E. Schoenfield_, Sep 04 2017
|
