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,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.

Sequence in context: A191017 A228228 A227031 * A019420 A306930 A019358

Adjacent sequences: A157971 A157972 A157973 * A157975 A157976 A157977

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Status

approved