login
Primes p such that (p reversed)+8 is also a prime.
5

%I #10 Sep 08 2022 08:45:48

%S 3,5,11,17,53,59,101,107,131,137,167,173,191,347,389,503,563,911,929,

%T 941,947,953,977,983,1013,1019,1061,1103,1193,1217,1223,1289,1301,

%U 1307,1367,1373,1409,1439,1451,1499,1523,1553,1571,1601,1607,1613,1637,1667

%N Primes p such that (p reversed)+8 is also a prime.

%H Vincenzo Librandi, <a href="/A167466/b167466.txt">Table of n, a(n) for n = 1..1000</a>

%e 17->71+8=79; 53->35+8=43; 107->701+8=709.

%t Select[Prime[Range[2, 3000]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] + 8]&](* _Vincenzo Librandi_, Sep 15 2013 *)

%o (Magma) [p: p in PrimesInInterval(2,2050) | IsPrime(q+8) where q is Seqint(Reverse(Intseq(p)))]; // _Vincenzo Librandi_, Sep 15 2013

%K nonn,base

%O 1,1

%A _Vincenzo Librandi_, Nov 04 2009

%E Numbers in the range 1100 to 1600 inserted by _R. J. Mathar_, Nov 08 2009