login
A154608
Primes p such that 11*p + 4 is also prime.
2
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,1
LINKS
MATHEMATICA
Select[Prime[Range[2000]], PrimeQ[11 # + 4] &] (* Vincenzo Librandi, Mar 06 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(1700)| IsPrime(11*p+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
(GAP) Filtered([1..2000], k-> IsPrime(k) and IsPrime(11*k+4)); # G. C. Greubel, Sep 18 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 15 2009
STATUS
approved