A285589 {00->0, 11->1}-transform of A285565.

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

Offset

1

Comments

As a word, A285565 = 011001101101100110111101100110110110011001100110..., so that the transform of A285565 that results from the substitutions 00->0 and 11->1 is 01010101010110101010101010101010101101...

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 0}}] &, {0}, 8] (* A285565 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"00" -> "0", "11" -> "1"}]
ss = ToCharacterCode[w1] - 48 (* A285589 *)
Flatten[Position[ss, 0]]  (* A285590 *)
Flatten[Position[ss, 1]]  (* A285591 *)

Crossrefs

Cf. A285515, A285565, A285590, A285591, A285592.

Sequence in context: A327515 A327532 A073445 * A179081 A113217 A189219

Adjacent sequences: A285586 A285587 A285588 * A285590 A285591 A285592

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved