A324479 Decimal expansion of real number whose continued fraction expansion is [0, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, ...] (the Thue-Morse sequence A001285).

7, 0, 3, 0, 4, 2, 6, 8, 7, 3, 2, 5, 7, 8, 3, 2, 9, 2, 7, 2, 1, 5, 7, 1, 9, 8, 7, 0, 9, 3, 0, 2, 6, 5, 6, 1, 5, 7, 7, 6, 0, 2, 4, 5, 2, 5, 8, 0, 2, 6, 6, 2, 0, 1, 0, 4, 4, 3, 3, 7, 0, 7, 0, 2, 7, 1, 4, 2, 8, 8, 5, 6, 9, 9, 4, 9, 5, 0, 2, 1, 6, 2, 9, 1, 7, 0, 4

Offset: 0

Author

N. J. A. Sloane, Mar 11 2019

Keywords

• nonn
• cons

Examples

			0.703042687325783292721571987...
		

References

• J.-P. Allouche and J. Shallit, Automatic Sequences, Cambridge Univ. Press, 2003, p. 399, Th. 13.7.6.

Crossrefs

Cf. A001285.

Programs

Mathematica

RealDigits[FromContinuedFraction[Join[{0}, Nest[Flatten@Join[#, # /. {1 -> 2, 2 -> 1}] &, {1}, 20]]], 10, 100][[1]] (* Amiram Eldar, Mar 11 2019 after Robert G. Wilson v at A001285 *)

Extensions

More terms from Amiram Eldar, Mar 11 2019