A157974 Primes p such that 12*p + 11 is also prime.

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

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..3000

Crossrefs

Cf. A136082, A136083, A023213, A023221, A023235, A023240.

Programs

Magma

[n: n in [0..1000] | IsPrime(n) and IsPrime(12*n + 11)]; // Vincenzo Librandi, Feb 03 2014

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 *)