%I #10 Dec 05 2013 19:56:19

%S 17,137,809,857,3209,6569,7577,9209,11897,16217,17657,19289,21929,

%T 23417,30809,35129,37529,41849,46889,53609,56009,66377,70457,74729,

%U 76697,78809,80537,88937,91577,95177,96857,103289,129497,141257,165449,166169

%N Primes p such that 8p +1 and (p-1)/8 are primes.

%e 137 is a term as (137-1)/8 = 17 and 137*8 +1 = 1097 both are primes.

%t Prime[ Select[ Range[15208], PrimeQ[ 8Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/8] & ]]

%t Select[Prime[Range[16000]],PrimeQ[8#+1]&&PrimeQ[(#-1)/8]&] (* _Harvey P. Dale_, Jan 23 2013 *)

%Y Cf. A085956, A085957.

%K nonn

%O 1,1

%A _Amarnath Murthy_, Jul 16 2003

%E Edited and extended by _Zak Seidov_ and _Robert G. Wilson v_, Jul 18 2003