This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A222116 #13 May 13 2013 10:39:45 %S A222116 2,3,5,7,11,101,131,151,191,313,353,10301,10501,11311,13331,30103, %T A222116 1003001,1123211,1201021,1221221,1303031,1311131,3001003,3103013, %U A222116 100030001,100050001,100111001,100131001,101030101,110111011,110232011,111010111,111050111 %N A222116 Palindromic primes whose sum of digits is also a palindromic prime. %H A222116 Giovanni Resta, <a href="/A222116/b222116.txt">Table of n, a(n) for n = 1..1000</a> %e A222116 353, a palindromic prime, is in the list since 3+5+3=11 is also a palindromic prime. %t A222116 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 A222116 Intersection of A082806 and A082208. %K A222116 nonn,base %O A222116 1,1 %A A222116 _Jayanta Basu_, May 13 2013