|
| |
|
|
A063504
|
|
Decimal expansion of e^Pi - Pi^e.
|
|
5
| |
|
|
6, 8, 1, 5, 3, 4, 9, 1, 4, 4, 1, 8, 2, 2, 3, 5, 3, 2, 3, 0, 1, 9, 3, 4, 1, 6, 3, 4, 0, 4, 8, 1, 2, 3, 5, 2, 6, 7, 6, 7, 9, 1, 1, 0, 8, 6, 0, 3, 5, 1, 9, 7, 4, 4, 2, 4, 2, 0, 4, 3, 8, 5, 5, 4, 5, 7, 4, 1, 6, 3, 1, 0, 2, 9, 1, 3, 3, 4, 8, 7, 1, 1, 9, 8, 4, 5, 2, 2, 4, 4, 3, 4, 0, 4, 0, 6, 1, 8, 8, 1, 4, 4, 5, 0, 2
(list; constant; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| A classic calculus analysis problem is to discover whether e^Pi or Pi^e is the greater without the use of a calculator.
|
|
|
REFERENCES
| Paul J. Nahin, When Least Is Best, How Mathematicians Discovered Many Clever Ways to Make Things as Small (or as Large) as Possible, Princeton University Press, Princeton NJ, 2004, Page 144.
Alfred S. Posamentier & Ingmar Hehmann, Pi: A Biography of the World's Most Mysterious Number, Prometheus Books, NY 2002, pages 146, 301-304.
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,20000
|
|
|
EXAMPLE
| 0.6815349144182235323019341634048123526710...
0.681534914418223532301934163404812352676791108603519744242043855457416... [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 24 2009]
|
|
|
MATHEMATICA
| RealDigits[N[E^Pi - Pi^E, 100]][[1]]
|
|
|
PROG
| (PARI) { default(realprecision, 20080); e=exp(1); x=10*(e^Pi - Pi^e); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b063504.txt", n, " ", d)) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 24 2009]
|
|
|
CROSSREFS
| Equals A039661 - A059850. Cf. A063503.
Sequence in context: A197479 A154513 A195716 * A188340 A011006 A198549
Adjacent sequences: A063501 A063502 A063503 * A063505 A063506 A063507
|
|
|
KEYWORD
| base,easy,nonn,cons
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 30 2001
|
|
|
EXTENSIONS
| Offset corrected by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 05 2009
|
| |
|
|
