OFFSET
1,1
MATHEMATICA
Select[Prime[Range[1000]], PrimeQ[2*#-1] && PrimeQ[3*#-2]&]*3-2
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 13 2011
STATUS
approved