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

17, 137, 809, 857, 3209, 6569, 7577, 9209, 11897, 16217, 17657, 19289, 21929, 23417, 30809, 35129, 37529, 41849, 46889, 53609, 56009, 66377, 70457, 74729, 76697, 78809, 80537, 88937, 91577, 95177, 96857, 103289, 129497, 141257, 165449, 166169

Offset: 1

Author

Amarnath Murthy, Jul 16 2003

Keywords

• nonn

Examples

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

Crossrefs

Cf. A085956, A085957.

Programs

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 *)

Extensions

Edited and extended by Zak Seidov and Robert G. Wilson v, Jul 18 2003