A288377 Fixed point of the mapping 00->0001, 1->10, starting with 00.

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

Offset

1

Links

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

Example

Iterates, starting with 00:
00
0001
0001010
00010100100
00010100100001100001
00010100100001100001000110100001000110

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0001", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288377 *)
Flatten[Position[st, 0]]  (* A288378 *)
Flatten[Position[st, 1]]  (* A288379 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A288380 conjectured *)

Crossrefs

Cf. A288378, A288379, A288380.

Sequence in context: A353478 A353555 A353476 * A341609 A064911 A174898

Adjacent sequences: A288374 A288375 A288376 * A288378 A288379 A288380

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved