title: ListPlot: individual point colors
body: <p>I've got a simple ListPlot like</p>
  
  <pre><code>list2 = Table[{x, Sqrt[x]}, {x, 0, 100}];
  </code></pre>
  
  <p>Now I want to color specific points with RED, say every 5th point, I tried</p>
  
  <pre><code>mycolor[x_] /; Mod[x, 5] == 0 = Red;
  mycolor[_] = Blue;
  </code></pre>
  
  <p>Now</p>
  
  <pre><code>ListPlot[#, PlotStyle -&gt; AbsolutePointSize[3], ColorFunction -&gt; 
  mycolor[#[[All, 1]], ColorFunctionScaling -&gt; False]] &amp;[list2]
  </code></pre>
  
  <p>doesnt work quite right, all points are still blue.
  What is wrong here?</p>
  
  <p>Thanks,
  archi</p>