p=Differences[Table[Prime[n],{n,100}]]

ListLinePlot[p]