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 A178091 #15 Apr 30 2024 01:47:50 %S A178091 157,179,337,359,733,751,953,971,1097,1237,1259,1381,1439,1453,1471, %T A178091 1583,1619,1723,1741,1831,3019,3109,3163,3257,3271,3343,3347,3433, %U A178091 3527,3541,3613,3851,7253,7321,7433,7523,7699,7879,7901,9013,9103,9161,9341,9521,9679,9769,9787,9967 %N A178091 Emirps whose digital sums are also emirps. %C A178091 Palindromic primes are not allowed, nor are palindromic digital sums of primes. - _Harvey P. Dale_, Feb 23 2014 %H A178091 Amiram Eldar, <a href="/A178091/b178091.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale) %H A178091 Silva, Prime Curios, <a href="https://t5k.org/curios/cpage/17498.html">Entry 157</a>. %t A178091 dseQ[n_]:=Module[{idn=IntegerDigits[n],ds},ds=IntegerDigits[Total[idn]];idn!=Reverse[idn]&&ds!=Reverse[ds] && And@@PrimeQ[{FromDigits[ Reverse[ idn]],FromDigits[ds],FromDigits[Reverse[ds]]}]]; Select[Prime[Range[ 1300]],dseQ] (* _Harvey P. Dale_, Feb 23 2014 *) %Y A178091 Cf. A006567, A178092, A178093. %K A178091 nonn,base %O A178091 1,1 %A A178091 _Lekraj Beedassy_, May 19 2010