|
%I #30 Feb 11 2024 11:19:51
%S 4,0,6,0,1,5,6,9,3,8,5,5,7,4,0,9,9,5,1,0,7,8,1,7,9,8,5,1,3,3,1,9,0,0,
%T 8,9,7,8,6,5,1,2,9,1,7,8,6,3,6,9,4,5,0,4,9,4,6,0,3,9,0,6,8,4,7,7,2,6,
%U 3,5,0,7,9,7,8,7,7,8,1,3,8,5,3,8,9,7,6,8,6,6,0,1,6,7,1,5,3,9,8,5
%N Decimal expansion of e * sqrt(Pi) * erf(1).
%H G. C. Greubel, <a href="/A125961/b125961.txt">Table of n, a(n) for n = 1..5000</a>
%H J.-P. Allouche and T. Baruchel, <a href="http://arxiv.org/abs/1408.2206">Variations on an error sum function for the convergents of some powers of e</a>, arXiv preprint arXiv:1408.2206 [math.NT], 2014.
%F Equals Sum_{k >= 1} (2^k / (2k-1)!!).
%F Equals Integral_{x=0..1} e^x dx/sqrt(1-x). - _Amiram Eldar_, Jul 04 2020
%e c = 4.06015693855740995107817985133190089786512917863694504946039...
%t RealDigits[N[E Sqrt[Pi] Erf[1], 100]][[1]]
%o (MATLAB) exp(1)*sqrt(pi)*erf(1) \\ _Altug Alkan_, Nov 11 2015
%o (PARI) exp(1)*sqrt(Pi)*(1-erfc(1)) \\ _Michel Marcus_, Nov 11 2015
%o (PARI) vector(100, n, if(n<1, 0, default(realprecision, n+2); floor((exp(1)*sqrt(Pi)*(1-erfc(1)))*10^(n-1))%10)) \\ _Altug Alkan_, Nov 11 2015
%K cons,nonn
%O 1,1
%A _Fredrik Johansson_, Feb 06 2007
|
