The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A022300 The sequence a of 1's and 2's starting with (1,1,2,1) such that a(n) is the length of the (n+2)nd run of a. 15
 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS It appears that various properties and unsolved problems associated with the Kolakoski sequence, A000002, apply also to A022300. LINKS Clark Kimberling, Table of n, a(n) for n = 1..20000 EXAMPLE a(1) =1, so the 3rd run has length 1, so a(5) must be 2. a(2) = 1, so the 4th run has length 1, so a(6) = 1. a(3) = 2, so the 5th run has length 2, so a(7) = 1 and a(8) = 2. a(4) = 1, so the 6th run has length 1, so a(9) = 1. Globally, the runlength sequence of a is 2,1,1,1,2,1,2,1,1,2,1,1,2,...., and deleting the first two terms leaves a = A022300. MATHEMATICA a = {1, 1, 2}; Do[a = Join[a, ConstantArray[If[Last[a] == 1, 2, 1], {a[[n]]}]], {n, 200}]; a (* Peter J. C. Moses, Apr 01 2016 *) CROSSREFS Cf. A022303, A006928, A000002. Sequence in context: A175244 A206722 A245222 * A347552 A300983 A279205 Adjacent sequences: A022297 A022298 A022299 * A022301 A022302 A022303 KEYWORD nonn AUTHOR Clark Kimberling EXTENSIONS Clarified and augmented by Clark Kimberling, Apr 02 2016 STATUS approved

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

Last modified May 18 16:32 EDT 2024. Contains 372664 sequences. (Running on oeis4.)