A287663 {0->1, 1->000}-transform of the infinite Fibonacci word A003849.

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

Offset

1

Comments

Guide to related sequences:

Transformation of A003849 Position sequences for 0 and 1

A287772, 0->1, 1->00 A287775, A050140

A287773, 0->011, 1->101 A287774, A287777

A287663: 0->1; 1->000 A287664, A287665

A287674: 0->1; 1->001 A287675, A287676

A287722: 0->1; 1->010 A287723, A287724

A287725: 0->1; 1->011 A287726, A287727

A287769: 0->1; 1->110 A276855, A287770

Links

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

Example

As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 1 and each 1 by 000 gives 100011000100011000110001000110001...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "1", "1" -> "000"}]
st = ToCharacterCode[w1] - 48    (* A287663 *)
Flatten[Position[st, 0]]  (* A287664 *)
Flatten[Position[st, 1]]  (* A287665 *)

Crossrefs

Cf. A287664, A287665.

Sequence in context: A187615 A369653 A120528 * A195376 A164950 A068433

Adjacent sequences: A287660 A287661 A287662 * A287664 A287665 A287666

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Extensions

Edited by Clark Kimberling, Oct 09 2017

Status

approved