A286063 Fixed point of the mapping 00->001, 1->100, starting with 00.

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

Offset

1

Comments

The number of letters (0's and 1's) in the n-th iterate of the mapping is given by A042950.

Links

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

Example

Iterates, starting with 00:
00
001
001100
001100100001
001100100001100001001100
001100100001100001001100100001001100001100100001

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "001", "1" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A286063 *)
Flatten[Position[st, 0]]  (* A286727 *)
Flatten[Position[st, 1]]  (* A286728 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A042950 *)

Crossrefs

Cf. A286727, A286728, A042950.

Sequence in context: A175337 A285031 A327222 * A339824 A278587 A188257

Adjacent sequences: A286060 A286061 A286062 * A286064 A286065 A286066

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Status

approved