A288243 Length of n-th iterate of the mapping 00->1000, 10->011, starting with 00.

2, 4, 7, 10, 14, 19, 26, 35, 45, 57, 71, 87, 106, 127, 151, 178, 208, 242, 279, 320, 366, 417, 473, 534, 601, 676, 759, 849, 947, 1054, 1172, 1302, 1442, 1594, 1759, 1939, 2136, 2346, 2573, 2819, 3086, 3376, 3685, 4018, 4379, 4770, 5192, 5642, 6126, 6650

Offset

0,1

Links

Table of n, a(n) for n=0..49.

Mathematica

z = 100; (* number of iterations *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "1000", "10" -> "011"}]
Table[StringLength[w[n]], {n, 0, z}]

Crossrefs

Cf. A288226.

Sequence in context: A177237 A094281 A076101 * A170890 A079963 A261252

Adjacent sequences: A288240 A288241 A288242 * A288244 A288245 A288246

Keyword

nonn,easy

Author

Clark Kimberling, Jul 10 2017

Status

approved