|
%I #17 Oct 06 2014 17:35:55
%S 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 15,16,17,17,18,18,18,19,19,19,20,21,21,22,22,22,23,23,24,25,25,26,27,
%U 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 a(n) = #{1<=k<=n : A000002(k)=1}.
%C A234322(n) = nearest integer to 100*a(n)/n. [_Jonathan Sondow_, Jan 08 2014]
%H 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 a(n) = n-A074286(n).
%F a(n) = 2*n - A054353(n). - _Jean-Christophe Hervé_, Oct 05 2014
%t 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 Cf. A000002, A234322.
%K nonn
%O 1,4
%A _Benoit Cloitre_, Feb 03 2009
|
