|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|