OFFSET
1,1
MATHEMATICA
q=100; s=""; For[i=1, i<10^7*2, p=Prime[i]; a=0; For[j=2, j<=q, If[PrimeQ[p-j]||PrimeQ[p+j], a=1; Break[]]; j=j+2]; If[a==0, s=s<>ToString[p]<>", "]; i++ ]; Print[s]
Select[Partition[Prime[Range[12500000]], 3, 1], #[[3]]-#[[2]]>98&&#[[2]] - #[[1]]>98&][[All, 2]] (* Harvey P. Dale, Sep 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 02 2008
EXTENSIONS
More terms Vladimir Joseph Stephan Orlovsky, Jan 24 2009
Corrected by Harvey P. Dale, Sep 23 2017
STATUS
approved