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

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

Offset

1

Links

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

Example

Iterates, starting with 00:
00
0010
0010000
00100000100010
0010000010001000000100000

Mathematica

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

Crossrefs

Cf. A287183, A287184, A287185.

Sequence in context: A289235 A188371 A353489 * A286939 A025125 A147873

Adjacent sequences: A288103 A288104 A288105 * A288107 A288108 A288109

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved