|
|
A289028
|
|
Length of n-th iterate of the mapping 00->0010, 10->010, 1-->001, starting with 00.
|
|
2
|
|
|
2, 4, 7, 12, 20, 34, 58, 99, 169, 288, 491, 837, 1428, 2437, 4159, 7099, 12118, 20686, 35313, 60283, 102909, 175676, 299897, 511955, 873961, 1491944, 2546908, 4347844, 7422234, 12670546, 21629975, 36924676, 63034365, 107606391, 183695599
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 34; (* number of iterations *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "001"}]
TableForm[Table[w[n], {n, 0, 4}]]
Table[StringLength[w[n]], {n, 0, z}] (* A289028 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|