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 A137836 #20 Jan 17 2020 04:54:42
%S A137836 3257,3527,7253,7523,32257,32537,35227,35257,35327,72253,72353,73523,
%T A137836 75223,75253,322573,327553,332573,355723,375223,375233,725357,753527,
%U A137836 3223357,3223537,3225737,3235577,3235777,3237527,3252377,3253753
%N A137836 Emirps using only and all of the prime digits 2,3,5,7.
%H A137836 Marius A. Burtea, <a href="/A137836/b137836.txt">Table of n, a(n) for n = 1..1601</a> (up to 10^9)
%p A137836 read transforms : isA006567 := proc(n) local nrev ; if isprime(n) then nrev := digrev(n) ; nrev <> n and isprime(nrev)) ; else false ; fi ; end: isA137836 := proc(n) local dgs ; if isA006567(n) then dgs := convert(convert(n,base,10),set) ; if dgs minus {2,3,5,7} <> {} then false ; elif nops(dgs) <> 4 then false ; else true ; fi ; else false ; fi ; end: for n from 1 to 1000000 do p := ithprime(n) ; if isA137836(p) then print(p) ; fi ; od: # _R. J. Mathar_, Feb 28 2008
%t A137836 Take[With[{nn=2},Union[FromDigits/@Select[Select[Flatten[Permutations/@ Flatten[ Table[Join[{2,3,5,7},Table[2,{i}],Table[3,{j}],Table[5,{k}], Table[7,{l}]],{i,0,nn},{j,0,nn},{k,0,nn},{l,0,nn}],3],1], PrimeQ[ FromDigits[#]]&], PrimeQ[FromDigits[Reverse[#]]]&]]],100] (* _Harvey P. Dale_, Nov 07 2012 *)
%Y A137836 Subsequence of A128388.
%K A137836 nonn,base
%O A137836 1,1
%A A137836 _Lekraj Beedassy_, Feb 12 2008
%E A137836 Corrected and extended by _R. J. Mathar_, Feb 28 2008