

A127028


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


5



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



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



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



