A157974 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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

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