A023221 Primes p such that 6*p + 5 is also prime.
2, 3, 7, 11, 13, 17, 29, 31, 37, 41, 43, 59, 71, 73, 79, 83, 97, 107, 109, 113, 137, 139, 151, 157, 163, 181, 191, 193, 197, 227, 239, 241, 251, 263, 269, 277, 307, 311, 317, 337, 347, 349, 367, 373, 389, 401, 409, 421, 431, 443, 449, 479, 487, 499, 503, 541, 557, 577, 587
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Subsequence of A059325.
Programs
-
Magma
[n: n in PrimesUpTo(100) | IsPrime(6*n+5)]; // Vincenzo Librandi, Nov 20 2010
-
Mathematica
Select[Prime[Range[1000]], PrimeQ[6 # + 5] &] (* Vincenzo Librandi, May 20 2014 *)
Comments