|
| |
|
|
A127031
|
|
Let f(n) = exp(pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) < 1/10^6.
|
|
10
| |
|
|
652, 2608, 880111, 2720885, 4089051, 4619054, 5046630, 5409046, 5433402, 5603556, 5645558, 7278138, 7466589, 10037029
(list; graph; refs; listen; history; internal format)
|
|
|
|
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^(-6)), AppendTo[a, x]], {x, 1, 100000}]; a
|
|
|
PROG
| (Pari) search(a, b)=my(t, prec=default(realprecision), nprec=round(Pi*sqrt(b)/log(10)+20)); default(realprecision, nprec); for(n=floor(a), b, t=exp(Pi*sqrt(n)); if(t-floor(t)<.000001, print(n))); default(realprecision, prec);
|
|
|
CROSSREFS
| Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, A127029.
Sequence in context: A002232 A127029 A127030 * A204511 A204506 A204505
Adjacent sequences: A127028 A127029 A127030 * A127032 A127033 A127034
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
EXTENSIONS
| Program and more terms from Charles R Greathouse IV Jul 28 2009
|
| |
|
|
