A058382 Continued fraction for Pie (A001355: digits of Pi and e interlaced).

32, 5, 1, 2, 1, 8, 2, 5, 1, 3, 1, 28, 1, 15, 1, 1, 4, 1, 2, 1, 1, 1, 2, 2, 1, 17, 1, 1, 2, 33, 1, 3, 1, 24, 1, 23, 2, 16, 4, 1, 1, 2, 2, 7, 1, 7, 11, 2, 1, 3, 2, 1, 1, 2, 7, 2, 2, 15, 3, 2, 1, 12, 1, 7, 7, 1, 1, 1, 34, 1, 1, 17, 1, 107, 1, 2, 2, 4, 1, 1, 4, 1, 1, 1, 5, 8, 1, 9, 6, 2, 4, 1, 6, 2, 1, 61

Offset: 1

Author

Robert G. Wilson v, Dec 19 2000

Keywords

• cofr
• nonn

Crossrefs

Cf. A001355.

Programs

Mathematica

a = RealDigits[ N[ Pi, 500] ][ [1] ]; b = RealDigits[ N[ E, 500] ][ [1] ]; c = Table[0, {1000} ]; Do[ c[ [2n - 1] ] = a[ [n] ]; c[ [2n] ] = b[ [n] ], {n, 500} ]; ContinuedFraction[ FromDigits[ {c, {2} } ], 100][ [1] ]