The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A074286 Partial sum of the Kolakoski sequence (A000002) minus n. 8
 0, 1, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7, 7, 7, 8, 8, 8, 9, 10, 10, 11, 11, 11, 12, 12, 13, 14, 14, 14, 15, 15, 15, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 21, 22, 23, 23, 24, 24, 24, 25, 25, 25, 26, 27, 27, 28, 29, 29, 29, 30, 30, 31, 32, 32, 33, 34, 34, 34, 35, 35 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS a(n) is the number of 2's in the Kolakoski word of length n (see first formula below). - Jean-Christophe Hervé, Oct 05 2014 LINKS Nathaniel Johnston, Table of n, a(n) for n = 1..10000 O. Bordelles and B. Cloitre, Bounds for the Kolakoski Sequence, J. Integer Sequences, 14 (2011), #11.2.1. Bertran Steinsky, A Recursive Formula for the Kolakoski Sequence A000002, J. Integer Sequences, Vol. 9 (2006), Article 06.3.7. FORMULA a(n)=#{1<=k<=n : A000002(k)=2}. - Benoit Cloitre, Feb 03 2009 a(n) = A054353(n) - n. - Nathaniel Johnston, May 02 2011 a(n) = n - A156077(n). - Jean-Christophe Hervé, Oct 05 2014 EXAMPLE The Kolakoski sequence is 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, ...; the partial sums are 1, 3, 5, 6, 7, 9, ..., so the sequence is 1-1=0, 3-2=1, 5-3=2, 6-4=2, 7-5=2, 9-6=3, ... . MATHEMATICA a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n - 1, 2]}], {n, 3, 50}, {a2[[n]]}]; a3 = Accumulate[a2]; a3 - Range[Length[a3]] (* Jean-François Alcover, Jun 18 2013 *) CROSSREFS Cf. A000002 (Kolakoski sequence), A054353 (partial sums of K. sequence), A156077 (number of 1's in K. sequence). Sequence in context: A073174 A107631 A029098 * A025769 A103563 A008625 Adjacent sequences:  A074283 A074284 A074285 * A074287 A074288 A074289 KEYWORD nonn,easy AUTHOR Jon Perry, Sep 21 2002 EXTENSIONS Corrected offset from Nathaniel Johnston, May 02 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 24 20:41 EDT 2021. Contains 345425 sequences. (Running on oeis4.)