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
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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