|
%I #13 Jul 29 2015 01:26:35
%S 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,
%T 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,
%U 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
%N Decimal expansion of Thue constant.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ThueConstant.html">Thue Constant</a>
%e 0.859099...
%t 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 *)
%Y Cf. A014578.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Aug 18 2002
%E Leading zero removed by _R. J. Mathar_, Feb 05 2009
|
