|
%I #14 Dec 24 2023 12:36:17
%S 2,5,7,17,19,47,67,89,157,227,229,307,349,439,467,487,509,599,647,797,
%T 929,1039,1187,1217,1237,1259,1307,1427,1447,1567,1789,2027,2309,2467,
%U 2539,2707,2789,2819,3167,3457,3499,3659,3877,3919,4057,4079,4157,4289,4297
%N Primes p such that 2p + 3 and 4p + 3 are both prime.
%C Intersection of A023204 and A023213.
%C Primes in A115334.
%H Charles R Greathouse IV, <a href="/A238699/b238699.txt">Table of n, a(n) for n = 1..10000</a>
%e 89 is in the sequence because 2*89 + 3 = 181 and 4*89 + 3 = 359 are both prime.
%t Select[Prime[Range[600]],AllTrue[{2#+3,4#+3},PrimeQ]&] (* _Harvey P. Dale_, Dec 24 2023 *)
%o (Magma) [p: p in PrimesUpTo(4500) | IsPrime(2*p+3) and IsPrime(4*p+3)]; // _Bruno Berselli_, Mar 03 2014
%o (PARI) select(p->isprime(2*p+3)&&isprime(4*p+3), primes(1000)) \\ _Charles R Greathouse IV_, Mar 06 2014
%Y Cf. A023204, A023213; A115334.
%K nonn
%O 1,1
%A _Ilya Lopatin_, Mar 03 2014, following a suggestion by _Juri-Stepan Gerasimov_
%E Edited by _Bruno Berselli_, Mar 03 2014
|
