A154608 Primes p such that 11*p + 4 is also prime.

3, 5, 17, 23, 47, 53, 59, 89, 107, 137, 173, 179, 239, 263, 269, 317, 347, 383, 389, 443, 449, 479, 557, 563, 569, 617, 647, 653, 659, 677, 683, 857, 863, 929, 953, 1019, 1097, 1109, 1193, 1223, 1229, 1277, 1373, 1433, 1487, 1493, 1499, 1583, 1607, 1613, 1667

Offset: 1

Author

Vincenzo Librandi, Jan 15 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A017437, A141851, A154607.

Programs

GAP

Filtered([1..2000], k-> IsPrime(k) and IsPrime(11*k+4)); # G. C. Greubel, Sep 18 2019

Magma

[p: p in PrimesUpTo(1700)| IsPrime(11*p+4)]; // Vincenzo Librandi, Mar 06 2013

Mathematica

Select[Prime[Range[2000]], PrimeQ[11 # + 4] &] (* Vincenzo Librandi, Mar 06 2013 *)

PARI

for(n=1, 2000, if(isprime(n) && isprime(11*n+4), print1(n", "))) \\ G. C. Greubel, Sep 18 2019

Sage

[n for n in (1..2000) if is_prime(n) and is_prime(11*n+4)] # G. C. Greubel, Sep 18 2019