login
A289058
Positions of 0 in A289057; complement of A289059.
3
1, 2, 4, 5, 8, 10, 11, 14, 17, 19, 20, 24, 27, 30, 32, 34, 38, 42, 45, 48, 53, 58, 62, 66, 72, 78, 83, 88, 95, 102, 108, 114, 122, 130, 137, 144, 153, 162, 170, 178, 188, 198, 207, 216, 227, 238, 248, 258, 270, 282, 293, 304, 317, 330, 342, 354, 368, 382
OFFSET
1,2
COMMENTS
The sequence (a(n)/n) diverges.
LINKS
MATHEMATICA
z = 10; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "011"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48 (* A289057 *)
Flatten[Position[st, 0]] (* A289058 *)
Flatten[Position[st, 1]] (* A289059 *)
CROSSREFS
Sequence in context: A047261 A286687 A190807 * A102798 A247886 A244991
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 27 2017
STATUS
approved