|
Search: id:A127029
|
|
|
| A127029 |
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) < 1/10^4. |
|
+0
19
|
| |
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
$MaxExtraPrecision = 1000; a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && ((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) < 10^(-4)), AppendTo[a, x]], {x, 1, 20000}]; a
|
|
CROSSREFS
|
Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, A127030.
Adjacent sequences: A127026 A127027 A127028 this_sequence A127030 A127031 A127032
Sequence in context: A110850 A048915 A002232 this_sequence A127030 A127031 A089673
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
