select[table[{n, prime(n), prime(n+1)-prime(n)}, {n,1,5000}], #[[3]]>10&]