A289028 - OEIS

%I #8 Sep 25 2017 04:09:41

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

%T 35313,60283,102909,175676,299897,511955,873961,1491944,2546908,

%U 4347844,7422234,12670546,21629975,36924676,63034365,107606391,183695599

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

%t z = 34; (* number of iterations *)

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

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

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

%t Table[StringLength[w[n]], {n, 0, z}] (* A289028 *)

%Y Cf. A289025.

%K nonn,easy

%O 0,1

%A _Clark Kimberling_, Jul 10 2017