|
%I #6 Mar 22 2017 19:00:20
%S 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,
%T 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,
%U 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
%N Continued fraction for Pie (A001355: digits of Pi and e interlaced).
%t 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] ]
%Y Cf. A001355.
%K cofr,nonn
%O 1,1
%A _Robert G. Wilson v_, Dec 19 2000
|
