|
Search: id:A127027
|
|
|
| A127027 |
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) < 1/10^2. |
|
+0
6
|
|
| 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, 196
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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
|
|
CROSSREFS
|
Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127028, A127029, A127030.
Sequence in context: A129484 A058999 A046077 this_sequence A033256 A106983 A141962
Adjacent sequences: A127024 A127025 A127026 this_sequence A127028 A127029 A127030
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
