A287801 - OEIS

A287801

{0->100, 1->001}-transform of the infinite Fibonacci word A003849.

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

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

OFFSET

COMMENTS

As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 100 and each 1 by 001 gives 100001100100001100001100100001...

LINKS

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

MATHEMATICA

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

w = StringJoin[Map[ToString, s]]

w1 = StringReplace[w, {"0" -> "100", "1" -> "001"}]

st = ToCharacterCode[w1] - 48 (* A287801 *)

Flatten[Position[st, 0]] (* A287802 *)