A288996 Length of n-th iterate of the mapping 00->0010, 01->001, 10->000, starting with 00.

2, 4, 7, 12, 22, 39, 68, 121, 213, 379, 676, 1206, 2155, 3832, 6823, 12156, 21658, 38584, 68716, 122402, 218016, 388317, 691583, 1231599, 2193224, 3905575, 6954709, 12384775, 22053977, 39271946, 69933281, 124534373, 221766354, 394914918, 703253649, 1252338238

Offset

1,1

Links

Table of n, a(n) for n=1..36.

Mathematica

z = 20; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "001", "10" -> "000"}]
TableForm[Table[w[n], {n, 0, 10}]]
Table[StringLength[w[n]], {n, 0, 20}] (* A288996 *)

Crossrefs

Cf. A288991. A288997.

Sequence in context: A257932 A287439 A026713 * A289153 A289019 A254685

Adjacent sequences: A288993 A288994 A288995 * A288997 A288998 A288999

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Extensions

a(27)-a(35) from Lars Blomberg, Jul 05 2017

Status

approved