A285592 {00->0, 11->1}-transform of A285568.

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, 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, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0

Offset

1

Comments

As a word, A285568 = 11011001101111011001101101100..., so that the transform of A285568 that results from the substitutions 00->0 and 11->1 is 101010110101010101010101011010101...

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}, 9] (* A285568 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"11" -> "1", "00" -> "0"}]
ss = ToCharacterCode[w1] - 48 (* A285592 *)
Flatten[Position[ss, 0]]  (* A285593 *)
Flatten[Position[ss, 1]]  (* A285594 *)

Crossrefs

Cf. A285568, A285593, A285594.

Sequence in context: A174888 A162549 A191188 * A276793 A284364 A115788

Adjacent sequences: A285589 A285590 A285591 * A285593 A285594 A285595

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved