OFFSET
1,1
EXAMPLE
1889 is a member as (1889-1)/32 = 59 and 32*1889 + 1= 60449 are both prime.
MATHEMATICA
Prime[ Select[ Range[37063], PrimeQ[(Prime[ # ] - 1)/2^5] && PrimeQ[2^5Prime[ # ] + 1] & ]]
Select[Prime[Range[35000]], And@@PrimeQ[{32#+1, (#-1)/32}]&] (* Harvey P. Dale, Jan 23 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Jason Earls, Jul 22 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jul 26 2003
STATUS
approved