In[]:=
ListLinePlot[Labeled[#,#]&/@Table[Prime[n],{n,46}],PlotStylePointSize[Medium]]
Out[]=