OFFSET
1,1
COMMENTS
Dickson's conjecture implies that this sequence is infinite. [Charles R Greathouse IV, Mar 22, 2011]
LINKS
EXAMPLE
MATHEMATICA
count=0; imin=0; cstop=65; pn=4; While[count<cstop, pn++; np=Prime[pn]; i=0; cp1=np; cp2=np; While[i++; diff=6*i; cp1=np-diff; cp2=np+diff; !(PrimeQ[cp1] && PrimeQ[cp2])]; Print[np]; If[i>imin, imin=i; count++]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Apr 30 2011
STATUS
approved