A159822 Continued fraction for Pi*e A019609.
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, 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, 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
Offset: 0
Examples
Pi*e = 8.53973422267356706546... = 8 + 1/(1 + 1/(1 + 1/(5 + 1/(1 + ...))))
Links
- Harry J. Smith, Table of n, a(n) for n = 0..20000
Programs
-
Mathematica
ContinuedFraction[E*Pi,5! ] (* Vladimir Joseph Stephan Orlovsky, Jun 18 2009 *)
-
PARI
{ allocatemem(932245000); default(realprecision, 21000); x=contfrac(Pi*exp(1)); for (n=1, 20001, write("b159822.txt", n-1, " ", x[n])); }