OFFSET
1,1
COMMENTS
LINKS
Chris Caldwell, Prime Glossary: Dickson's Conjecture
MATHEMATICA
Table[ n6=6^n; p = 2; While[ ! PrimeQ[q = p*n6 + 1 ] || ! PrimeQ[ q - 2 ], p = NextPrime[p] ]; p, {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 26 2013
STATUS
approved