%I #7 Feb 16 2015 10:22:58
%S 0,90,1,4,1,3,5,4,6,8,4,5,4,1,3,30,1,5,3,2,65,1,37,20,2,1,5,1,14,2,1,
%T 4,1,30,2,1,32,3,1,4,5,80,1,4,1,4,3,1,3,6,7,9,1,7,1,4,1,9,1,1,1,1,4,2,
%U 9,1,1,2,10,3,1,69,1,2,12,1,1,1,1,5,1,1,1,2,5,4,1,1,27,3,3,1,2
%N Continued fraction for the Morse-Thue constant .01101001100101101001... formed from A010060.
%C The constant is Sum A010060(n)*10^(-n).
%t mt = 0; Do[ mt = ToString[ mt ] <> ToString[ (10^(2^n) - 1)/9 - ToExpression[ mt ] ], {n, 0, 7} ]; ContinuedFraction[ N[ ToExpression[ mt ]/10^(2^8), 2^8 ], 75 ]
%Y Cf. A010060, A014571.
%Y More terms from _R. K. Guy_, Jun 15 2001
%K cofr,nonn,easy
%O 0,2
%A _Robert G. Wilson v_, Dec 29 2000
|