%I #9 Jul 22 2019 19:33:39
%S 2,3,5,7,11,101,131,151,181,191,313,353,373,383,571,599,727,757,787,
%T 797,919,929,10037,10093,10133,10253,10301,10313,10321,10333,10357,
%U 10457,10501,10601,10613,10753,10781,10853,10861,10993,11003,11027,11083
%N Primes p such that p+reverse(p) is twice a prime.
%C Except for p=2, the sum of a prime and its reversed is even, therefore such a sum, divided by 2, is an integer.
%C All palindromic primes belong to this sequence since reverse(p)=p.
%H Harvey P. Dale, <a href="/A180440/b180440.txt">Table of n, a(n) for n = 1..5000</a>
%e a(15)=571 since 571+reverse(571)=571+175=746 and 746/2=373 is a prime
%t Select[Prime[Range[1500]],PrimeQ[(#+IntegerReverse[#])/2]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 22 2019 *)
%Y Cf. A000040, A002385
%K nonn,base
%O 1,1
%A _Carmine Suriano_, Sep 05 2010