|
|
A080285
|
|
Numbers n such that [(Pi+e)/(Pi-e)]^n is closer to its nearest integer than any value of [(Pi+e)/(Pi-e)]^k for 1 <= k < n.
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
At n=1533, the discrepancy from an integer is 0.000043205...
At n=26974, the discrepancy from an integer is 0.00002313... - Ryan Propper, Jul 26 2005
|
|
LINKS
|
|
|
MATHEMATICA
|
$MaxExtraPrecision = 10^6; x = (Pi + E)/(Pi - E); b = 1; Do[a = Abs[N[Round[x^n] - x^n, 30]]; If[a < b, Print[n]; b = a], {n, 1, 30000}] (* Ryan Propper, Jul 26 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Mark Hudson (mrmarkhudson(AT)hotmail.com), Feb 13 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|