|
%I #12 Jan 17 2023 14:27:06
%S 0,0,0,0,1,8,9,6,0,9,8,1,1,5,4,2,1,6,9,0,4,6,8,2,3,6,3,8,6,0,8,0,0,6,
%T 1,7,5,2,6,3,6,7,6,9,0,3,1,5,0,9,0,4,2,5,4,8,1,4,1,4,2,8,5,0,5,3,9,2,
%U 3,4,5,6,2,0,1,3,6,4,8,0,1,6,2,7,2,7,1,9,2,4,4,4,4,3,3,8,5,4,5,1,1,9,9,7,7
%N Decimal expansion of e^(-4*e).
%H Harry J. Smith, <a href="/A093626/b093626.txt">Table of n, a(n) for n = 0..20000</a>
%e 0.000018960981154216904682363860800
%t Join[{0,0,0,0},RealDigits[1/(E^(4E)) ,10,120][[1]]] (* _Harvey P. Dale_, Jan 17 2023 *)
%o (PARI) { default(realprecision, 20080); x=10*exp(1)^(-4*exp(1)); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b093626.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 19 2009
%Y Cf. A001113, A073226, A073230.
%K cons,nonn
%O 0,6
%A _Mohammad K. Azarian_, May 14 2004
|
