A288306 Fixed point of the mapping 00->0010, 1->110, starting with 00.

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

Offset

1

Links

Table of n, a(n) for n=1..86.

Example

Iterates, starting with 00:
00
0010
00101100
001011001101100010
0010110011011000101101100110110001001100

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "1" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288306 *)
Flatten[Position[st, 0]]  (* A288307 *)
Flatten[Position[st, 1]]  (* A288308 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A288309 conjectured *)

Crossrefs

Cf. A288307, A288308, A288309.

Sequence in context: A214090 A072784 A092436 * A164056 A286059 A163539

Adjacent sequences: A288303 A288304 A288305 * A288307 A288308 A288309

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved