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 A179034 #6 Nov 30 2012 17:52:46
%S A179034 13,31,113,311,389,983,1031,1033,1103,1193,1301,1381,1399,1439,1831,
%T A179034 1913,1933,3011,3019,3049,3083,3089,3109,3163,3169,3191,3301,3319,
%U A179034 3343,3389,3391,3433,3463,3469,3613,3643,3803,3889,3911,9013,9103,9133,9341
%N A179034 Emirps whose only prime digits are 3's.
%H A179034 Harvey P. Dale, <a href="/A179034/b179034.txt">Table of n, a(n) for n = 1..1000</a>
%t A179034 em3Q[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!= ridn&&PrimeQ[FromDigits[ridn] && Count[idn,2] == Count[idn,5] == Count[idn,7] == 0&&Count[idn,3]>0]]; Select[Prime[Range[1200]],em3Q] (* _Harvey P. Dale_, Nov 30 2012 *)
%Y A179034 Cf. A006567, A179035.
%K A179034 base,nonn
%O A179034 1,1
%A A179034 _Lekraj Beedassy_, Jun 25 2010
%E A179034 Corrected by _Ray Chandler_, Jul 13 2010