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

Author

David W. Wilson

Keywords

• nonn
• easy

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 *)