All the same colour

    ListPlot[MapIndexed[{#2[[1]], #1} &, Prime[Range[25]]]]

All different colours

    ListPlot[MapIndexed[List@{#2[[1]], #1} &, Prime[Range[25]]]]

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/gFxcd.png