A086477 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..27.

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

CROSSREFS

Cf. A085957, A085958, A086476, A086478.

Sequence in context: A324259 A083361 A236661 * A205637 A255090 A237409

Adjacent sequences: A086474 A086475 A086476 * A086478 A086479 A086480

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