%I #17 Sep 08 2022 08:45:17
%S 3,7,13,19,43,103,127,211,223,241,283,349,397,421,439,727,733,787,829,
%T 853,883,1597,1723,1741,1777,2017,2131,2287,2371,2383,2521,2593,2833,
%U 2857,3163,3181,3253,3319,3571,3583,3697,3853,3919,3967,4003,4021,4201
%N Primes p such that 5*p+8 and 8*p+5 are primes.
%F A023220 INTERSECT A023230. - _R. J. Mathar_, Aug 06 2009
%t Select[Prime[Range[220]], PrimeQ[8#+5]&&PrimeQ[5#+8]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(5*p+8) and IsPrime(8*p+5)] // _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