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

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