%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