A286804 {000->null}-transform of the Pell word, A171588.

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

Offset

1

Comments

A171588 = 001001000100100010010010001001..., and deleting each occurrence of 000 gives 00100110011001001100110..., in which the positions of 0 are given by A286805, and of 1, by A286806.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 16]; (* Pell word, A171588 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"000" -> ""}];
st = ToCharacterCode[w1] - 48 ; (* A286804 *)
Flatten[Position[st, 0]];  (* A286805 *)
Flatten[Position[st, 1]];  (* A286806 *)

Crossrefs

Cf. A171588, A286805, A286806.

Sequence in context: A308187 A289007 A308901 * A188071 A343219 A189640

Adjacent sequences: A286801 A286802 A286803 * A286805 A286806 A286807

Keyword

nonn,easy

Author

Clark Kimberling, May 16 2017

Status

approved