|
| |
|
|
A127024
|
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n))-f(n) < 1/10^5.
|
|
11
| | |
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| J.-P. Serre, "Lectures on the Mordell-Weil theorem".
|
|
|
MATHEMATICA
| a = {}; Do[If[(1 - (Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (1 - ( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-5)), AppendTo[a, x]], {x, 1, 1000}]; a
|
|
|
CROSSREFS
| Cf. A035484, A127022, A127023, A127025.
Sequence in context: A105326 A129546 A112826 * A010338 A184074 A127334
Adjacent sequences: A127021 A127022 A127023 * A127025 A127026 A127027
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
| |
|
|
