A058631 Continued fraction for the Morse-Thue constant .01101001100101101001... formed from A010060.
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, 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, 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
Offset: 0
Programs
-
Mathematica
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 ]
Comments