A285680 {1010->2}-transform of the infinite Fibonacci word A003849.

0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 2

Offset

1,5

Links

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

Example

As a word, A003849 = 01001010010010100..., and replacing each 1010 by 2 gives 01002010020201002010020201002020100201...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 13] ; (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"1010" -> "2"}]
st = ToCharacterCode[w1] - 48; (* A285680 *)
Flatten[Position[st, 0]];  (* A285681 *)
Flatten[Position[st, 1]];  (* A285682 *)
Flatten[Position[st, 2]];  (* A285683 *)

Crossrefs

Cf. A003849, A285677, A285681, A285682, A285683.

Sequence in context: A025895 A377432 A104451 * A240668 A106602 A106594

Adjacent sequences: A285677 A285678 A285679 * A285681 A285682 A285683

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved