A156007 Primes p such that 32*p + 93 is also prime.

2, 7, 13, 19, 23, 29, 37, 47, 53, 67, 79, 83, 103, 107, 109, 113, 127, 149, 163, 167, 179, 193, 197, 223, 233, 239, 257, 347, 349, 389, 449, 457, 499, 503, 509, 523, 547, 569, 593, 613, 677, 727, 733, 739, 743, 757, 809, 827, 859, 883, 887, 919, 977, 1009, 1033

Offset

1,1

Links

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

Maple

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

Mathematica

Select[Prime[Range[1100]], PrimeQ[(32*# + 93)]&] (* Vincenzo Librandi, Oct 30 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(1100)| IsPrime(32*p + 93)]; // Vincenzo Librandi, Oct 30 2012

Crossrefs

Cf. A156004, A156005.

Sequence in context: A140562 A155547 A007821 * A067774 A063637 A216526

Adjacent sequences: A156004 A156005 A156006 * A156008 A156009 A156010

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 01 2009

Extensions

More terms from Emeric Deutsch, Mar 01 2009

Status

approved