WMA link
NumberLinePlot
NumberLinePlot[Prime[Range[10]]]
Compare with:
NumberLinePlot[Table[x^2, {x, 10}]]