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

Author

Clark Kimberling, May 11 2017

Keywords

• nonn
• easy

Examples

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

Links

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

Crossrefs

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

Programs

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 *)