login
A157974
Primes p such that 12*p + 11 is also prime.
6
3, 5, 13, 19, 29, 31, 41, 53, 59, 61, 71, 73, 101, 109, 113, 131, 151, 173, 199, 211, 223, 239, 241, 251, 263, 283, 293, 313, 389, 409, 419, 439, 449, 491, 503, 521, 523, 571, 593, 631, 641, 643, 659, 673, 701, 733, 769, 809, 811, 823, 839, 853, 883, 929, 953
OFFSET
1,1
LINKS
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
STATUS
approved