%I #22 Sep 08 2022 08:45:17
%S 7,11,13,29,37,41,79,83,97,107,113,137,139,151,163,181,193,197,239,
%T 263,347,373,389,401,421,431,443,449,487,503,541,557,643,653,701,821,
%U 839,883,911,1033,1051,1093,1129,1163,1201,1217,1259,1283,1303,1373
%N Primes p such that 5*p + 6 and 6*p + 5 are primes.
%H Edward Jiang, <a href="/A106079/b106079.txt">Table of n, a(n) for n = 1..10000</a>
%p 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
%t Select[Prime[Range[220]], PrimeQ[6#+5]&&PrimeQ[5#+6]&]
%o (Magma) [p: p in PrimesUpTo(5000)|IsPrime(5*p+6) and IsPrime(6*p+5)] // _Vincenzo Librandi_, Jan 30 2011
%o (PARI) forprime(p=1,10^4,if(isprime(5*p+6)&&isprime(6*p+5),print1(p,", "))) \\ _Derek Orr_, Aug 04 2014
%Y Intersection of A023219 and A023221. - _Michel Marcus_, Nov 06 2018
%K nonn,easy
%O 1,1
%A _Zak Seidov_, May 07 2005