A284468 - OEIS

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

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A284468

0-limiting word of the morphism 0->1, 1->0100.

0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

The morphism 0->1, 1->0100 has two limiting words. If the number of iterations is even, the 0-word evolves from 0 -> 1 -> 0100 -> 1010011 -> 0100101001101000100; if the number of iterations is odd, the 1-word evolves from 0 -> 1 -> 0100 -> 1010011 -> 0100101001101000100, 1010011010010100110100010010100111010011, as in A284471.

LINKS

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

MATHEMATICA

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 0, 0}}] &, {0}, 16]; (* A284468 *)

Flatten[Position[s, 0]]; (* A284469 *)

Flatten[Position[s, 1]]; (* A284470*)

CROSSREFS

Cf. A284469, A284470, A284471.

Sequence in context: A059620 A188014 A288600 * A260455 A189572 A287028

Adjacent sequences: A284465 A284466 A284467 * A284469 A284470 A284471

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Apr 02 2017

STATUS

approved