login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A127027 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^2. 5

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 18:08 EDT 2020. Contains 334630 sequences. (Running on oeis4.)