login
This site is supported by donations to The OEIS 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
103, 148, 164, 205, 223, 226, 268, 359, 630, 652, 940, 1005, 1194, 1213, 1332, 1353, 1441, 1481, 1519, 1750, 1823, 1825, 1835, 1930, 1951, 1961, 2309, 2339, 2347, 2357, 2498, 2511, 2527, 2554, 2608, 2683, 3086, 3108, 3157, 3377, 3646, 3653, 3656, 3738, 3762 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..45.

MATHEMATICA

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

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 *)

CROSSREFS

Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127028, A127029, A127030.

Sequence in context: A129484 A058999 A046077 * A033256 A106983 A141962

Adjacent sequences:  A127024 A127025 A127026 * A127028 A127029 A127030

KEYWORD

nonn

AUTHOR

Artur Jasinski, Jan 03 2007

EXTENSIONS

Corrected by Harvey P. Dale, Apr 06 2012

a(27)-a(45) from Jon E. Schoenfield, Sep 04 2017

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 23 06:29 EDT 2018. Contains 316520 sequences. (Running on oeis4.)