Determining Gaps Between Primes

In[36]:=

primegap[n_] = Prime[n + 1] - Prime[n]

In[41]:=

gap100 = Table[primegap[n], {n, 1, 100}]

In[42]:=

ListPlot[gap100]

In[43]:=

Max[gap100]

In[46]:=

gap5000 = Table[primegap[n], {n, 1, 5000}] ;

ListPlot[gap5000]

Max[gap5000]

Created by Mathematica  (February 12, 2007) Valid XHTML 1.1!