cp's OEIS Frontend

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

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