A086477 - OEIS

%I #6 Jan 13 2019 13:04:29

%S 21377,44417,140417,151169,151937,155777,436097,539009,569729,570497,

%T 608129,658817,704897,830849,865409,965249,1000577,1008257,1054337,

%U 1130369,1214849,1311617,1419137,1429889,1556609,1618817,1779329

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

%t Prime[ Select[ Range[141120], PrimeQ[(Prime[ # ] - 1)/2^7] && PrimeQ[2^7Prime[ # ] + 1] & ]]

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

%Y Cf. A085957, A085958, A086476, A086478.

%K nonn

%O 1,1

%A _Amarnath Murthy_ and _Jason Earls_, Jul 22 2003

%E Edited and extended by _Robert G. Wilson v_, Jul 26 2003