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
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..3000
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 *)
Comments