OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..3000
MATHEMATICA
q=11; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p+q], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[1000]], PrimeQ[12 # + 11]&] (* Vincenzo Librandi, Feb 03 2014 *)
PROG
(Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(12*n + 11)]; // Vincenzo Librandi, Feb 03 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 10 2009
STATUS
approved