A093580 - OEIS

%I #35 Nov 23 2024 01:35:53

%S 0,4,3,2,1,3,9,1,8,2,6,3,7,7,2,2,4,9,7,7,4,4,1,7,7,3,7,1,7,1,7,2,8,0,

%T 1,1,2,7,5,7,2,8,1,0,9,8,1,0,6,3,3,0,8,2,9,8,0,7,1,9,6,8,7,4,0,1,0,5,

%U 0,7,6,5,7,5,7,0,1,7,9,6,7,6,9,8,1,3,9,9,5,9,9,6,1,9,0,1,0,8,4,3,8,7,0,1,6

%N Decimal expansion of e^(-Pi).

%C Also, decimal expansion of (-1)^i. - _Rick L. Shepherd_, Jul 09 2013

%C Also, the greatest real value of z that minimizes z^i + z^(-i). - _Colin Linzer_, Nov 21 2024

%H Harry J. Smith, <a href="/A093580/b093580.txt">Table of n, a(n) for n = 0..20000</a>

%H H. S. Uhler, <a href="http://www.jstor.org/stable/2972387">On the numerical value of i^i</a>, Amer. Math. Monthly, 28 (1921), 114-116.

%F Equals 1/A039661 = A049006^2. - _Hugo Pfoertner_, Nov 22 2024

%e 0.04321391826377224977441773717172801127572810981...

%t Join[{0}, RealDigits[E^-Pi, 10, 105][[1]]] (* _Harvey P. Dale_, Apr 25 2012 *)

%o (PARI) { default(realprecision, 20080); x=10*exp(-Pi); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b093580.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 19 2009

%Y Cf. A039661, A001113, A000796, A049006.

%K cons,nonn

%O 0,2

%A _Mohammad K. Azarian_, May 14 2004