A074071 Decimal expansion of Thue constant.

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

Offset

0,1

Links

Table of n, a(n) for n=0..100.

Eric Weisstein's World of Mathematics, Thue Constant

Example

0.859099...

Mathematica

tm = Nest[ Flatten[# /. {0 -> {1, 1, 1}, 1 -> {1, 1, 0}}] &, {0}, 6]; RealDigits[ FromDigits[{tm, 0}, 2]][[1]][[1 ;; 101]] (* Jean-François Alcover, Oct 29 2012, after Robert G. Wilson v's program in A014578 *)

Crossrefs

Cf. A014578.

Sequence in context: A308743 A305582 A144454 * A100126 A330111 A335822

Adjacent sequences: A074068 A074069 A074070 * A074072 A074073 A074074

Keyword

nonn,cons

Author

Eric W. Weisstein, Aug 18 2002

Extensions

Leading zero removed by R. J. Mathar, Feb 05 2009

Status

approved