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 A161118 #13 May 24 2021 15:34:26
%S A161118 1091,1301,1913,1933,3067,3433,7481,7523,9103,10247,10429,10711,11071,
%T A161118 11353,11701,11731,13297,13457,13933,14447,14843,14923,15263,15803,
%U A161118 16073,16193,16451,18013,18041,18307,32009,32261,34471,35027,35129
%N A161118 Honaker emirps: terms in A033548 that are emirps.
%C A161118 Intersection of A033548 and A006567. - _Lekraj Beedassy_, Jun 06 2009
%C A161118 Palindromic primes are not included. - _Harvey P. Dale_, Jun 13 2011
%t A161118 nn=3800;emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; ridn!=idn && PrimeQ[FromDigits[ridn]]]; Select[Transpose[ Select[ Thread[ {Prime[Range[nn]],Range[nn]}], Total[IntegerDigits[First[#]]] == Total[IntegerDigits[Last[#]]]&]][[1]],emrpQ] (* _Harvey P. Dale_, Jun 13 2011 *)
%Y A161118 Cf. A006567, A033548.
%K A161118 nonn,base
%O A161118 1,1
%A A161118 _Lekraj Beedassy_, Jun 02 2009
%E A161118 Sequence corrected and extended by _Lekraj Beedassy_, Jun 06 2009