|
%I #13 Dec 30 2021 01:30:06
%S 1,9,0,3,5,6,8,0,6,5,7,2,9,9,0,6,3,3,8,9,0,0,8,3,3,7,2,1,4,8,1,7,9,3,
%T 5,3,4,1,6,4,0,5,8,5,8,1,5,0,5,8,0,5,5,7,6,3,0,3,4,4,7,6,8,8,3,3,6,6,
%U 8,4,9,2,3,9,9,3,2,5,1,8,6,7,9,9,7,7,4,6,2,1,9,6,7,0,9,3,4,2,4,5,4,8,4,5,0
%N Decimal expansion of binomial(Pi, e).
%H Harry J. Smith, <a href="/A093961/b093961.txt">Table of n, a(n) for n = 1..5000</a>
%F Equals Pi!/(e! * (Pi-e)!).
%e 1.903568065729906338900833721481793534164058581505805576303447688336684... - _Harry J. Smith_, Jun 17 2009
%t RealDigits[ Binomial[Pi, E], 10, 111][[1]]
%o (PARI) { allocatemem(932245000); default(realprecision, 5080); e=exp(1); x=gamma(Pi+1)/(gamma(e+1)*gamma(Pi-e+1)); for (n=1, 5000, d=floor(x); x=(x-d)*10; write("b093961.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 17 2009
%o (Sage) numerical_approx( gamma(pi+1)/(gamma(e+1)*gamma(pi -e +1)), digits=120) # _G. C. Greubel_, Dec 29 2021
%Y The continued fraction is A093962.
%K cons,nonn
%O 1,2
%A _Robert G. Wilson v_, Apr 20 2004
|
