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!)
 A122497 Let f(S) denote the interchange of 1's and 2's in S. Let S_0 = 1, S_{N+1} = f(S_N).S_N, where the dot indicates concatenation. Sequence gives S_0.S_1.S_2.S_3.... 1
 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS An alternating triangular Morse-Thue sequence based on A010060 using {1,2} instead of {0,1} substitutions. LINKS G. C. Greubel, Table of n, a(n) for the first 13 rows, flattened Eric Weisstein's World of Mathematics, Thue-Morse Constant FORMULA a(n) = A059448(n) + 1. - Filip Zaludek, Dec 10 2016 EXAMPLE The first few S_i are: 1 2, 1 1, 2, 2, 1 2, 1, 1, 2, 1, 2, 2, 1 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1 MATHEMATICA ThueMorse[n_, b_] := Nest[Flatten[ # /. {1 -> {1, 2}, 2 -> {2, 1}}] &, {b}, n] a = Table[ThueMorse[n, 1 + Mod[n, 2]], {n, 0, 7}] Flatten[a] CROSSREFS Cf. A010060, A014571, A014572, A074072, A074073. Sequence in context: A049705 A060236 A006345 * A154402 A210682 A293433 Adjacent sequences:  A122494 A122495 A122496 * A122498 A122499 A122500 KEYWORD nonn,tabf AUTHOR Roger L. Bagula, Sep 15 2006 EXTENSIONS Edited by N. J. A. Sloane, May 22 2007 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 April 10 11:30 EDT 2021. Contains 342845 sequences. (Running on oeis4.)