login
Primes p such that p+reverse(p) is twice a prime.
1

%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