A286726 {0->10, 1->01}-transform of the Pell word, A171588.

1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 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 10 and each 1 by 01 gives 1010011010011010100110100110101001101...

Mathematica

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

Crossrefs

Cf. A171588, A286686, A286687.

Sequence in context: A098033 A284471 A135022 * A189209 A266754 A071982

Adjacent sequences: A286723 A286724 A286725 * A286727 A286728 A286729

Keyword

nonn,easy

Author

Clark Kimberling, May 14 2017

Status

approved