This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A049705 #11 Nov 28 2014 22:09:18
%S A049705 2,1,1,2,2,1,2,1,1,2,1,1,2,2,1,2,2,1,1,2,1,2,2,1,2,1,1,2,2,1,2,2,1,2,
%T A049705 1,1,2,1,1,2,2,1,2,1,1,2,1,2,2,1,2,2,1,1,2,1,1,2,2,1,2,1,1,2,1,1,2,2,
%U A049705 1,2,2,1,2,1,1,2,1,2,2,1,1,2,1,1,2,2,1,2,1,1,2,1,1,2,2,1,2,2,1,1,2,1,2,2,1
%N A049705 a(n)=3-k(n), where k=A000002=Kolakoski sequence; also the sequence of runlengths of a is k.
%C A049705 The anti-Kolakoski sequence: a(n) never equals the length of the n-th run. Start with a(1)=2, then the first run is of length 1 and a(2)=1; thus the 2nd run is of length 2 and a(3)=1, thus a(4)=a(5)=2, etc. - _Jean-Christophe Hervé_, Nov 10 2014
%t A049705 a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n-1, 2]}], {n, 3, 70}, {i, 1, a2[[n]]}]; 3 - a2 (* _Jean-François Alcover_, Jun 18 2013 *)
%Y A049705 Cf. A088569 (essentially the same sequence).
%K A049705 nonn
%O A049705 1,1
%A A049705 _Clark Kimberling_