Is there a clever way to generate a TikZ drawing coordinate sequence in Mathematica? The following commands work pretty well

```
there[x_] : = Log[2, (2 x - 200)/(x - 200)]
Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT
```

but ends at the exit

```
{{201., 7.65821}, {211., 4.33498}, ...
```

I can post-process it in a text editor, but it would be better to take it out in Mathematica as

```
(201., 7.65821) -
(211., 4.33498) -
(221., 3.52655) -
(231., 3.07923) -
(241., 2.78200) -
...
```

or something similar, to easily use with the draw command TikZ. I could go through the list and the "format";

```
Clear[i, y];
there[x_] : = Log[2, (2 x - 200)/(x - 200)];
coordinates = Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT;
tikzlist = {};
For[i = 1, i <= Length[coordinates], i ++,
x = coordinates[[i]][[1]];
y = coordinates[[i]][[2]];
tikzlist =
tikzlist <> "(" <> ToString[x] <> "," <> ToString[y] <> ") -";
]tikzlist = StringTake[tikzlist, StringLength[tikzlist] - 2]<> ";"
```

but maybe there is a shorter command of a line that does the job better and more efficiently. TIA.