A086477 Primes p such that 128p+1 and (p-1)/128 are both prime.

21377, 44417, 140417, 151169, 151937, 155777, 436097, 539009, 569729, 570497, 608129, 658817, 704897, 830849, 865409, 965249, 1000577, 1008257, 1054337, 1130369, 1214849, 1311617, 1419137, 1429889, 1556609, 1618817, 1779329

Offset: 1

Author

Amarnath Murthy and Jason Earls, Jul 22 2003

Keywords

• nonn

Crossrefs

Cf. A085957, A085958, A086476, A086478.

Programs

Mathematica

Prime[ Select[ Range[141120], PrimeQ[(Prime[ # ] - 1)/2^7] && PrimeQ[2^7Prime[ # ] + 1] & ]]
Select[Prime[Range[140000]],AllTrue[{128#+1,(#-1)/128},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 13 2019 *)

Extensions

Edited and extended by Robert G. Wilson v, Jul 26 2003