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

2, 4, 7, 12, 22, 39, 69, 122, 217, 386, 687, 1224, 2181, 3883, 6910, 12305, 21906, 38991, 69421, 123609, 220110, 391929, 697931, 1242873, 2213237, 3941323, 7018445, 12497917, 22255832, 39632383, 70576606, 125680814, 223808756

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A289016.

Sequence in context: A026713 A288996 A289153 * A254685 A002573 A288317

Adjacent sequences: A289016 A289017 A289018 * A289020 A289021 A289022

Keyword

nonn,easy

Author

Clark Kimberling, Jun 27 2017

Status

approved