|
Search: id:A127026
|
|
|
| A127026 |
|
Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) < 1/10. |
|
+0
6
|
|
| 2, 30, 33, 42, 56, 96, 100, 103, 140, 148, 164, 171, 172, 182, 187, 188, 205, 211, 223, 226, 239, 241, 243, 253, 268, 300, 318, 328, 359, 361, 364, 379, 387, 394, 408, 410, 421, 423, 425, 426, 436, 455, 465, 467, 490, 492, 509, 529, 536, 546, 579, 583, 587
(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^(-1)), AppendTo[a, x]], {x, 1, 1000}]; a
|
|
CROSSREFS
|
Cf. A035484, A127022, A127023, A127024, A127025, A127027, A127028, A127029, A127030.
Sequence in context: A071056 A075716 A022377 this_sequence A105962 A113695 A098827
Adjacent sequences: A127023 A127024 A127025 this_sequence A127027 A127028 A127029
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
