A106067 - OEIS

%I #22 Nov 08 2024 04:44:28

%S 5,7,13,17,19,29,43,89,97,127,139,167,173,197,199,227,269,337,349,353,

%T 383,397,409,439,503,523,607,643,659,797,859,887,929,1013,1039,1063,

%U 1069,1109,1153,1193,1259,1277,1303,1307,1427,1429,1483,1559,1567,1583

%N Primes p such that 3*p + 2 and 2*p + 3 are primes.

%H Amiram Eldar, <a href="/A106067/b106067.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Zak Seidov)

%t Select[Prime[Range[20000]], PrimeQ[2#+3]&&PrimeQ[3#+2]&]

%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(3*p+2) and IsPrime(2*p+3)]; // _Vincenzo Librandi_, Nov 13 2010

%o (PARI) is(p) = isprime(p) && isprime(3*p+2) && isprime(2*p+3); \\ _Amiram Eldar_, Nov 08 2024

%Y Intersection of A023204 and A023208.

%K nonn

%O 1,1

%A _Zak Seidov_, May 07 2005