A287125 Fixed point of the mapping 00->001, 1->110, starting with 00.

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

Offset

1

Links

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

Example

Iterates, starting with 00:
00
001
001110
0011101101100
00111011011001101100110110001

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "001", "1" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A287125 *)
Flatten[Position[st, 0]]  (* A287126 *)
Flatten[Position[st, 1]]  (* A287127 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A287128 conjectured *)

Crossrefs

Cf. A287126, A287127, A287128.

Sequence in context: A354896 A359606 A072126 * A339051 A234045 A238468

Adjacent sequences: A287122 A287123 A287124 * A287126 A287127 A287128

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved