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,1

Comments

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

Links

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

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

Prog

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

Crossrefs

Cf. A153418, A156104.

Sequence in context: A323042 A210731 A295959 * A192954 A337437 A107010

Adjacent sequences: A156106 A156107 A156108 * A156110 A156111 A156112

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 08 2009

Extensions

More terms from Emeric Deutsch, Mar 02 2009

Status

approved