OFFSET
1,2
MATHEMATICA
z = 10; (* number of iterations *)
s = {0, 0}; u[0] = StringJoin[Map[ToString, s]]; w[0] = u[0];
u[n_] := u[n] = StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "010"}];
w[n_] := w[n] = If[OddQ[StringLength[u[n]]], StringDrop[u[n], -1], u[n]];
TableForm[Table[w[n], {n, 0, 8}]]
st = ToCharacterCode[w[z]] - 48 (* A293076 *)
p0 = Flatten[Position[st, 0]] (* A289036 *)
p1 = Flatten[Position[st, 1]] (* A289037 *)
v = Table[StringLength[w[n]], {n, 0, 34}] (* A293077 *)
v/2 (* A293078 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Sep 30 2017
STATUS
approved