OFFSET
1,1
EXAMPLE
137 is a term as (137-1)/8 = 17 and 137*8 +1 = 1097 both are primes.
MATHEMATICA
Prime[ Select[ Range[15208], PrimeQ[ 8Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/8] & ]]
Select[Prime[Range[16000]], PrimeQ[8#+1]&&PrimeQ[(#-1)/8]&] (* Harvey P. Dale, Jan 23 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 16 2003
EXTENSIONS
Edited and extended by Zak Seidov and Robert G. Wilson v, Jul 18 2003
STATUS
approved