A156109 Primes p such that p+18 and p+36 are both prime.

5, 11, 23, 43, 53, 61, 71, 113, 131, 163, 193, 233, 313, 331, 383, 421, 431, 443, 641, 673, 683, 691, 733, 751, 821, 911, 1013, 1033, 1051, 1213, 1283, 1453, 1531, 1583, 1601, 1723, 1741, 1871, 1913, 1993, 2063, 2143, 2203, 2251, 2381, 2423, 2441, 2503

Offset: 1

Author

Vincenzo Librandi, Feb 08 2009

Keywords

• nonn
• easy

Comments

A153418 INTERSECT A156104. [Bruno Berselli, Nov 01 2012]

Links

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

Crossrefs

Cf. A153418, A156104.

Programs

Magma

[p: p in PrimesUpTo(3000)|IsPrime(p + 18) and IsPrime (p + 36)]; // Vincenzo Librandi, Oct 31 2012

Maple

a := proc (n) if isprime(ithprime(n)+18) = true and isprime(ithprime(n)+36) = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 400); # Emeric Deutsch, Mar 02 2009

Mathematica

Select[Prime[Range[3000]], And @@ PrimeQ[{# + 18, # + 36}]&] (* Vincenzo Librandi, Oct 31 2012 *)

Extensions

More terms from Emeric Deutsch, Mar 02 2009