OFFSET
1,1
COMMENTS
The sequence is probably infinite.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[600000]], 2, 1], Floor[#[[2]]/100]- Floor[ #[[1]]/100]>1&]][[1]] (* Harvey P. Dale, Jul 10 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ki Punches, Apr 29 2009
EXTENSIONS
Corrected by Ray Chandler, Apr 30 2009
STATUS
approved