login
Decimal expansion of Kolakoski constant.
2

%I #16 Mar 07 2016 05:11:28

%S 7,9,4,5,0,7,1,9,2,7,7,9,4,7,9,2,7,6,2,4,0,3,6,2,4,1,5,6,3,6,0,4,5,6,

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

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

%N Decimal expansion of Kolakoski constant.

%H Rabie A. Mahmoud, <a href="http://www.researchgate.net/profile/Rabie_Mahmoud2/publication/271910838">Hardware Implementation of Binary Kolakoski Sequence</a>, Research Gate, 2015.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/KolakoskiSequence.html">Kolakoski Sequence</a>

%F Take the Kolakoski sequence (A000002) 1221121221.... Interpret the 2's as 1's and the 1's as 0's: 0110010110.... Interpret the result as a binary fraction: 0.110010110..._2.

%e 0.7945071927794792762...

%t A000002[n_] := (s = {1, 2, 2}; Do[AppendTo[s, Mod[k-1, 2] + 1], {k, 3, n}, {s[[k]]}] ; s); Take[ First[ RealDigits[ FromDigits[ {Rest[A000002[300] /. {1 -> 0, 2 -> 1}], 0}, 2]]], 105] (* _Jean-François Alcover_, Jul 28 2011 *)

%Y Cf. A000002.

%K nonn,cons

%O 0,1

%A _Eric W. Weisstein_, Apr 21 2006