All the same colour ListPlot[MapIndexed[{#2[[1]], #1} &, Prime[Range[25]]]] All different colours ListPlot[MapIndexed[List@{#2[[1]], #1} &, Prime[Range[25]]]]