|
Search: id:A127022
|
|
|
| A127022 |
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that ceiling(f(n))-f(n) < 1/10^3. |
|
+0
12
|
|
| 25, 37, 43, 58, 67, 74, 163, 232, 522, 719, 1169, 1245, 1467, 1850, 1872
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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^(-3)), AppendTo[a, x]], {x, 1, 1000}]; a
|
|
CROSSREFS
|
Cf. A035484, A127023, A127024, A127025.
Sequence in context: A035383 A061863 A079270 this_sequence A120148 A038516 A080386
Adjacent sequences: A127019 A127020 A127021 this_sequence A127023 A127024 A127025
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
