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 A178092 #10 Oct 18 2014 10:03:58
%S A178092 157,179,337,359,1097,1237,1259,1381,1439,1453,1471,1583,1619,1723,
%T A178092 3019,3109,3163,3257,3343,3347,3527,7699,7879,9679,10039,10079,10273,
%U A178092 10453,10457,10651,10781,10853,11083,11159,11353,11447,11551,11717,11731,11933,12073
%N A178092 Lesser of emirp pairs whose digital sums are also emirps (A178091).
%H A178092 Harvey P. Dale, <a href="/A178092/b178092.txt">Table of n, a(n) for n = 1..10000</a>
%t A178092 emrp[n_]:=Module[{e=FromDigits[Reverse[IntegerDigits[n]]]},If[n!=e&&PrimeQ[ e],{n,e},{}]]; dsemQ[m_]:=Module[ {ds=Total[IntegerDigits[m]],em}, em= FromDigits[ Reverse[IntegerDigits[ ds]]];em!=ds&& And@@PrimeQ[{ds,em}]]; Select[Transpose[Rest[Union[Sort/@(emrp/@Prime[Range[2000]])]]][[1]],dsemQ] (* _Harvey P. Dale_, Sep 11 2013 *)
%Y A178092 Cf. A109308, A178091, A178093.
%K A178092 nonn,base
%O A178092 1,1
%A A178092 _Lekraj Beedassy_, May 19 2010
%E A178092 Corrected and extended by _Harvey P. Dale_, Sep 11 2013