A156012 Primes p such that 2*p+3 and 32*p+93 are both prime.

2, 7, 13, 19, 29, 47, 53, 67, 113, 127, 167, 193, 197, 223, 349, 503, 509, 523, 547, 613, 739, 743, 809, 827, 859, 887, 1033, 1069, 1117, 1327, 1373, 1427, 1429, 1453, 1553, 1607, 1609, 1663, 1693, 1723, 1777, 1847, 2063, 2087, 2099, 2113, 2143, 2203, 2239

Offset

1,1

Links

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

Maple

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

Mathematica

Select[Prime[Range[2500]], And @@ PrimeQ[{2# + 3, 32# + 93}]&] (* Vincenzo Librandi, Oct 30 2012 *)

Prog

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

Crossrefs

Cf. A156007.

Sequence in context: A138646 A118755 A231383 * A106011 A045375 A249419

Adjacent sequences: A156009 A156010 A156011 * A156013 A156014 A156015

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 01 2009

Extensions

More terms from Emeric Deutsch, Mar 01 2009

Status

approved