A286688 {0->00, 1->10}-transform of the Pell word, A171588.

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

Offset

1

Links

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

Example

As a word, A171588 = 001001000100100010010010001001000..., and replacing each 0 by 00 and each 1 by 10 gives 00001000001000000010000010...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 6] (* A171588 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "00", "1"->"10"}]
st = ToCharacterCode[w1] - 48 ; (* A286688 *)
Flatten[Position[st, 0]];  (* A286689 *)
Flatten[Position[st, 1]];  (* A286690 *)

Crossrefs

Cf. A171588, A286689, A286690.

Sequence in context: A025457 A350289 A219463 * A356923 A356924 A285125

Adjacent sequences: A286685 A286686 A286687 * A286689 A286690 A286691

Keyword

nonn,easy

Author

Clark Kimberling, May 13 2017

Status

approved