A106079 Primes p such that 5*p + 6 and 6*p + 5 are primes.

7, 11, 13, 29, 37, 41, 79, 83, 97, 107, 113, 137, 139, 151, 163, 181, 193, 197, 239, 263, 347, 373, 389, 401, 421, 431, 443, 449, 487, 503, 541, 557, 643, 653, 701, 821, 839, 883, 911, 1033, 1051, 1093, 1129, 1163, 1201, 1217, 1259, 1283, 1303, 1373

Offset: 1

Author

Zak Seidov, May 07 2005

Keywords

• nonn
• easy

Links

• Edward Jiang, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A023219 and A023221. - Michel Marcus, Nov 06 2018

Programs

Magma

[p: p in PrimesUpTo(5000)|IsPrime(5*p+6) and IsPrime(6*p+5)] // Vincenzo Librandi, Jan 30 2011

Maple

select(n -> isprime(n) and isprime(5*n+6) and isprime(6*n+5), [seq(2*i+1,i=1..1000)]); # Robert Israel, Aug 04 2014

Mathematica

Select[Prime[Range[220]], PrimeQ[6#+5]&&PrimeQ[5#+6]&]

PARI

forprime(p=1,10^4,if(isprime(5*p+6)&&isprime(6*p+5),print1(p,", "))) \\ Derek Orr, Aug 04 2014