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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A320927 Concatenation of successive segments generated by the morphism {0 -> {0, 0, 1}, 1 -> {0,1,0}}, starting with 0. 4
0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

COMMENTS

Positions of 0: A320928

Positions of 1: A320929

LINKS

Clark Kimberling, Table of n, a(n) for n = 1..20000

EXAMPLE

First 4 segments:

{0},

{0, 0, 1},

{0, 0, 1, 0, 0, 1, 0, 1, 0},

{0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1}

MATHEMATICA

s[n_] := Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 1, 0}}] &, {0}, n];  (* A189628 *)

t = Table[s[n], {n, 0, 8}];  Take[t, 5]  (* successive segments of morphism s *)

u = Flatten[t]; Take[u, 200]                (* A320927 *)

v = Flatten[Position[u, 0]]; Take[v, 200]   (* A320928 *)

w = Flatten[Position[u, 1]];  Take[w, 200]  (* A320929 *)

CROSSREFS

Cf. A189628, A320927, A320928, A320929.

Sequence in context: A144603 A163581 A100283 * A134391 A102215 A288508

Adjacent sequences:  A320924 A320925 A320926 * A320928 A320929 A320930

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Oct 24 2018

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 12 05:33 EDT 2020. Contains 336438 sequences. (Running on oeis4.)