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 A156077 #17 Oct 06 2014 17:35:55
%S A156077 1,1,1,2,3,3,4,4,4,5,5,5,6,7,7,8,9,9,9,10,10,11,12,12,13,13,13,14,15,
%T A156077 15,16,17,17,18,18,18,19,19,19,20,21,21,22,22,22,23,23,24,25,25,26,27,
%U A156077 27,27,28,28,28,29,30,30,31,31,31,32,32,32,33,34,34,35,36,36,37,37,37,38
%N A156077 a(n) = #{1<=k<=n : A000002(k)=1}.
%C A156077 A234322(n) = nearest integer to 100*a(n)/n. [_Jonathan Sondow_, Jan 08 2014]
%H A156077 O. Bordelles and B. Cloitre, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL14/Bordelles/bordelles7r.html">Bounds for the Kolakoski Sequence</a>, J. Integer Sequences, 14 (2011), #11.2.1.
%F A156077 a(n) = n-A074286(n).
%F A156077 a(n) = 2*n - A054353(n). - _Jean-Christophe Hervé_, Oct 05 2014
%t A156077 a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n - 1, 2]}], {n, 3, 60}, {i, 1, a2[[n]]}]; a3 = Accumulate[a2]; 2*Range[Length[a3]] - a3 (* _Jean-François Alcover_, Jun 18 2013 *)
%Y A156077 Cf. A000002, A234322.
%K A156077 nonn
%O A156077 1,4
%A A156077 _Benoit Cloitre_, Feb 03 2009