[go: up one dir, main page]

login
A058382
Continued fraction for Pie (A001355: digits of Pi and e interlaced).
3
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,1
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] ]
CROSSREFS
Cf. A001355.
Sequence in context: A249597 A303322 A126654 * A070617 A298922 A198065
KEYWORD
cofr,nonn
AUTHOR
Robert G. Wilson v, Dec 19 2000
STATUS
approved