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