OFFSET
1,1
MATHEMATICA
$MaxExtraPrecision = 1000; a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && ((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) < 10^(-4)), AppendTo[a, x]], {x, 1, 20000}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 03 2007
EXTENSIONS
a(5)-a(35) from Jon E. Schoenfield, Sep 04 2017
STATUS
approved