A286939 Fixed point of the mapping 00->001, 1->000, starting with 00.

0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 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
001
001000
0010000010
00100000100100000
00100000100100000010000010010

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "001", "1" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A286939 *)
Flatten[Position[st, 0]]  (* A285432 *)
Flatten[Position[st, 1]]  (* A285564 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A285665 conjectured *)

Crossrefs

Cf. A285432, A285564, A285665.

Sequence in context: A378191 A353489 A288106 * A025125 A147873 A103589

Adjacent sequences: A286936 A286937 A286938 * A286940 A286941 A286942

Keyword

nonn,easy

Author

Clark Kimberling, Jun 04 2017

Status

approved