A156009 Primes p such that 64*p + 189 is also prime.

2, 5, 13, 17, 37, 53, 61, 71, 73, 83, 97, 101, 103, 127, 131, 173, 191, 193, 211, 223, 227, 233, 251, 263, 283, 317, 337, 347, 367, 373, 431, 433, 443, 457, 487, 503, 521, 557, 577, 601, 641, 643, 647, 653, 673, 677, 701, 743, 797, 821, 823, 827, 883, 887, 907

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Maple

a := proc (n) if isprime(64*ithprime(n)+189) = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 180); # Emeric Deutsch, Mar 01 2009

Mathematica

Select[Prime[Range[1000]], PrimeQ[(64*# + 189)]&] (* Vincenzo Librandi, Oct 30 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(1000)| IsPrime(64*p + 189)]; // Vincenzo Librandi, Oct 30 2012

Crossrefs

Cf. A156004, A156005, A156007.

Sequence in context: A079936 A363750 A102854 * A215275 A164620 A333876

Adjacent sequences: A156006 A156007 A156008 * A156010 A156011 A156012

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 01 2009

Extensions

More terms from Emeric Deutsch, Mar 01 2009

Status

approved