A156111 Primes p such that p+18 and p+144 are both prime.

5, 13, 19, 23, 29, 53, 79, 83, 89, 113, 139, 149, 163, 173, 193, 223, 239, 313, 379, 443, 449, 503, 599, 613, 643, 683, 709, 733, 739, 743, 809, 839, 919, 953, 1069, 1153, 1163, 1279, 1283, 1289, 1303, 1409, 1453, 1493, 1549, 1553, 1579, 1609, 1723, 1993, 1999

Offset: 1

Author

Vincenzo Librandi, Feb 08 2009

Keywords

• nonn
• easy

Comments

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

Links

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

Crossrefs

Cf. A153418, A156107.

Programs

Magma

[p: p in PrimesUpTo(2000)|IsPrime(p + 18) and IsPrime (p + 144)]; // Vincenzo Librandi, Oct 30 2012

Mathematica

Select[Prime[Range[2000]], And @@ PrimeQ[{# + 18, # + 144}]&] (* Vincenzo Librandi, Oct 30 2012 *)

Extensions

13 inserted and extended by R. J. Mathar, Feb 19 2009