%I M0070 #31 Dec 19 2021 04:27:01
%S 1,2,1,1,2,1,2,2,1,2,2,1,1,2,1,1,2,2,1,2,1,1,2,1,2,2,1,1,2,1,1,2,1,2,
%T 2,1,2,2,1,1,2,1,2,2,1,2,1,1,2,1,1,2,2,1,2,2,1,1,2,1,2,2,1,2,2,1,1,2,
%U 1,1,2,1,2,2,1,2,1,1,2,2,1,2,2,1,1,2,1,2,2,1,2,2,1,1,2,1,1,2,2,1,2,1,1,2,1,2,2,1
%N a(n) = length of (n+1)st run, with initial terms 1, 2.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/KolakoskiSequence.html">Kolakoski Sequence.</a>
%F a(n) = A000002(n+1), n > 1.
%e Start with [ 1,2 ]. a(1)=1, so the second run has length 1, so a(3) must be 1. a(2)=2, so the third run has length 2, so a(4) must also be 1 and a(5) must be 2. a(3)=1, so the 4th run has length 1, so a(6) must be 1; etc. - _Labos Elemer_
%t a = {1, 2}; Do[AppendTo[a, 1+Mod[n, 2]], {n, 2, 80}, {i, a[[n]]}]; a (* _Jean-François Alcover_, Aug 09 2016, adapted from PARI *)
%o (PARI) a=[ 1,2 ]; for(n=2,80, for(i=1,a[ n ],a=concat(a,1+(n%2)))); a
%Y Essentially the same as Kolakoski sequence A000002.
%K nonn,easy,nice
%O 1,2
%A _N. J. A. Sloane_