A127028 - OEIS

A127028

Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^3.

148, 268, 652, 1194, 1332, 1519, 2608, 5650, 5774, 5868, 6632, 7260, 9058, 10153, 10210, 11076, 12314, 13049, 13097, 14370, 15696, 16170, 18736, 19571, 21655, 21814, 22905, 23325, 24496, 27435, 28201, 29239, 31214, 34218, 36166, 36287, 38805, 38990, 42761

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-3)), AppendTo[a, x]], {x, 1, 1000}]; a

CROSSREFS

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

Sequence in context: A252690 A134212 A344409 * A186894 A233727 A178264

Adjacent sequences: A127025 A127026 A127027 * A127029 A127030 A127031

KEYWORD

nonn

AUTHOR

Artur Jasinski, Jan 03 2007

EXTENSIONS

a(7)-a(39) from Jon E. Schoenfield, Sep 04 2017

STATUS

approved