%I
%S 5,11,31,61,71,109,199,229,241,269,281,379,389,419,431,499,541,571,
%T 631,641,709,739,809,1049,1061,1069,1091,1231,1259,1289,1291,1429,
%U 1439,1451,1489,1499,1571,1601,1621,1831,1861,1931,1949,2011,2069,2089,2099,2239
%N Primes p such that 7*p + 6 and 6*p + 7 are primes.
%t Select[Prime[Range[220]], PrimeQ[6#+7]&&PrimeQ[7#+6]&]
%o (MAGMA) [p: p in PrimesUpTo(10000) IsPrime(7*p+6) and IsPrime(6*p+7)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _Vincenzo Librandi_, Apr 01 2010
