|
| |
|
|
A127028
|
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) < 1/10^3.
|
|
5
| | |
|
|
|
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^(-3)), AppendTo[a, x]], {x, 1, 1000}]; a
|
|
|
CROSSREFS
| Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127029, A127030.
Sequence in context: A097729 A061154 A134212 * A186894 A178264 A121280
Adjacent sequences: A127025 A127026 A127027 * A127029 A127030 A127031
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
| |
|
|
