login
A286726
{0->10, 1->01}-transform of the Pell word, A171588.
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, 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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 14 2017
STATUS
approved