%I #14 Sep 08 2022 08:45:17
%S 29,41,109,139,151,179,191,239,331,359,379,401,421,449,569,659,701,
%T 769,811,839,1019,1171,1231,1301,1409,1499,1549,1759,1831,1871,1889,
%U 2029,2039,2099,2269,2311,2351,2699,2879,3061,3089,3259,3271,3301,3359,3371
%N Primes p such that 3*p + 26 and 26*p + 3 are primes.
%t Select[Prime[Range[220]], PrimeQ[26#+3]&&PrimeQ[3#+26]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(3*p+26) and IsPrime(26*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005