table[prime(n+1)-prime(n), {n,1,3000}]