|
%I #13 May 13 2013 10:39:45
%S 2,3,5,7,11,101,131,151,191,313,353,10301,10501,11311,13331,30103,
%T 1003001,1123211,1201021,1221221,1303031,1311131,3001003,3103013,
%U 100030001,100050001,100111001,100131001,101030101,110111011,110232011,111010111,111050111
%N Palindromic primes whose sum of digits is also a palindromic prime.
%H Giovanni Resta, <a href="/A222116/b222116.txt">Table of n, a(n) for n = 1..1000</a>
%e 353, a palindromic prime, is in the list since 3+5+3=11 is also a palindromic prime.
%t palQ[n_]:=FromDigits[Reverse[IntegerDigits[n]]]==n; t={}; Do[If[palQ[p=Prime[n]] && palQ[td=Total[IntegerDigits[p]]] && PrimeQ[td],AppendTo[t,p]],{n,6400000}]; t
%Y Intersection of A082806 and A082208.
%K nonn,base
%O 1,1
%A _Jayanta Basu_, May 13 2013
|
