login
Primes p such that 5*p+8 and 8*p+5 are primes.
0

%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