OFFSET
1,1
MATHEMATICA
Select[Table[{6k-1, 6k+1}, {k, 1, 100}], PrimeQ[ #[[1]] ] && !PrimeQ[ #[[2]] ]&] // Flatten (* Jean-François Alcover, Nov 24 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 22 2010
EXTENSIONS
Entries checked by R. J. Mathar, Apr 14 2010
STATUS
approved