|
%I #12 Dec 25 2015 00:18:20
%S 8,1,1,5,1,3,1,4,12,3,2,1,5,2,12,1,1,1,10,2,2,2,3,8,3,2,2,2,29,1,1,13,
%T 1,1,8,11,16,3,1,4,163,2,1,1,1,5,1,6,1,17,5,1,3,6,3,1,4,1,1,1,5,1,7,
%U 15,4,1,1,1,9,1,1,4,1,1,9,1,55,14,14,1,3,2,3,7,1,118,1,2,29,1,2,2,1,4,1,2,1
%N Continued fraction for Pi*e A019609.
%H Harry J. Smith, <a href="/A159822/b159822.txt">Table of n, a(n) for n = 0..20000</a>
%e Pi*e = 8.53973422267356706546... = 8 + 1/(1 + 1/(1 + 1/(5 + 1/(1 + ...))))
%t ContinuedFraction[E*Pi,5! ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 18 2009 *)
%o (PARI) { allocatemem(932245000); default(realprecision, 21000); x=contfrac(Pi*exp(1)); for (n=1, 20001, write("b159822.txt", n-1, " ", x[n])); }
%K nonn,cofr
%O 0,1
%A _Harry J. Smith_, Apr 27 2009
|
