OFFSET
1,1
COMMENTS
Primes p such that p mod 11 is prime.
Primes of the form 11*n+r where n >= 0 and r is in {2, 3, 5, 7}.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[600]], MemberQ[{2, 3, 5, 7}, Mod[#, 11]]&] (* Vincenzo Librandi, Aug 05 2012 *)
PROG
(Magma) [ p: p in PrimesUpTo(760) | p mod 11 in {2, 3, 5, 7} ];
[ p: p in PrimesUpTo(760) | exists(t){ n: n in [0..p div 11] | exists(u){ r: r in {2, 3, 5, 7} | p eq (11*n+r) } } ];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Klaus Brockhaus, Oct 28 2009
STATUS
approved