A156112 Primes p such that p+36 and p+72 are both prime.
7, 11, 17, 31, 37, 67, 101, 127, 157, 191, 197, 241, 277, 281, 311, 317, 337, 347, 431, 521, 541, 571, 647, 751, 787, 911, 941, 947, 977, 997, 1051, 1151, 1187, 1451, 1487, 1621, 1627, 1877, 2017, 2027, 2237, 2311, 2467, 2521, 2621, 2647, 2657, 2677, 2731
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(3000)|IsPrime(p + 36) and IsPrime (p + 72)]; // Vincenzo Librandi, Oct 31 2012
-
Mathematica
Select[Prime[Range[3000]], And @@ PrimeQ[{# + 36,# + 72}]&] (* Vincenzo Librandi, Oct 31 2012 *) Select[Prime[Range[3000]],AllTrue[#+{36,72},PrimeQ]&] (* Harvey P. Dale, Jul 12 2023 *)
Extensions
More terms from R. J. Mathar, Feb 09 2009
Comments