OFFSET
1,1
COMMENTS
MATHEMATICA
nn = 1001; t = Differences[Prime[Range[nn]]]; t2 = {}; Do[If[t[[n - 1]] < t[[n]] && t[[n]] > t[[n + 1]], AppendTo[t2, {n, t[[n]]}]], {n, 2, nn - 2}]; Transpose[t2][[1]] (* T. D. Noe, Dec 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 29 2011
STATUS
approved