A286691 {0->010, 1->110}-transform of the Pell word, A171588.

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

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 010 and each 1 by 110 gives 0100101100100101100100100101100100...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 6] (* A171588 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "010", "1"->"110"}]
st = ToCharacterCode[w1] - 48 ; (* A286691 *)
Flatten[Position[st, 0]];  (* A286692 *)
Flatten[Position[st, 1]];  (* A286693 *)

Crossrefs

Cf. A171588, A286692, A286693.

Sequence in context: A083651 A111748 A282244 * A359172 A288462 A361460

Adjacent sequences: A286688 A286689 A286690 * A286692 A286693 A286694

Keyword

nonn,easy

Author

Clark Kimberling, May 13 2017

Status

approved