The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A189702 Fixed point of the morphism 0->011, 1->10. 5
 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1 LINKS EXAMPLE 0->011->0110101->01110101001110011-> MATHEMATICA t = Nest[Flatten[# /. {0->{0, 1, 1}, 1->{1, 0}}] &, {0}, 6] (*A189702*) f[n_] := t[[n]] Flatten[Position[t, 0]] (*A189703*) Flatten[Position[t, 1]] (*A189704*) s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0; Table[s[n], {n, 1, 120}] (*A189705*) CROSSREFS Cf. A189703, A189704, A189705. Sequence in context: A285080 A167392 A190201 * A168395 A278718 A130854 Adjacent sequences: A189699 A189700 A189701 * A189703 A189704 A189705 KEYWORD nonn AUTHOR Clark Kimberling, Apr 25 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 29 06:08 EDT 2023. Contains 361596 sequences. (Running on oeis4.)