A289000 - OEIS

%I #8 Jul 05 2017 03:26:21

%S 2,4,7,12,20,34,58,99,169,288,491,837,1428,2437,4159,7099,12118,20686,

%T 35312,60280,102903,175665,299877,511920,873900,1491838,2546724,

%U 4347527,7421690,12669614,21628381,36921953,63029713,107598447,183682035,313564844,535288668

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

%t z = 20; (* number of iterates *)

%t s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];

%t w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "001", "10" -> "001"}]

%t TableForm[Table[w[n], {n, 0, 10}]]

%t Table[StringLength[w[n]], {n, 0, 20}] (* A289000 *)

%Y Cf. A288991, A288997.

%K nonn,easy

%O 0,1

%A _Clark Kimberling_, Jun 25 2017

%E a(27)-a(36) from _Lars Blomberg_, Jul 05 2017