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

0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 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
00100000
0010000001000100
0010000001000100010000001000000010

Mathematica

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

Crossrefs

Cf. A288168, A288169, A288170.

Sequence in context: A185706 A358759 A025455 * A288991 A289016 A289104

Adjacent sequences: A288164 A288165 A288166 * A288168 A288169 A288170

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved