OFFSET
1,1
COMMENTS
FORMULA
MATHEMATICA
Select[3 2^Range[500], PrimeQ[#-1]&&PrimeQ[#+1]&] (* Harvey P. Dale, Jan 18 2011 *)
PROG
(PARI) for( k=1, 999, ispseudoprime(3<<k-1)|next; ispseudoprime(3<<k+1)|next; print1(3<<k, ", "))
CROSSREFS
KEYWORD
nonn,bref,more
AUTHOR
M. F. Hasler, Oct 30 2010
STATUS
approved