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 A128388 #24 Jun 03 2025 15:10:29
%S A128388 37,73,337,733,3257,3373,3527,3733,7253,7523,7577,7757,32233,32257,
%T A128388 32353,32377,32537,33223,35227,35257,35323,35327,35537,72253,72337,
%U A128388 72353,72577,73277,73327,73523,73553,75223,75253,75577,77237,77323
%N A128388 Emirps with only prime digits (i.e., 2, 3, 5, 7).
%C A128388 7523 is the largest norep emirp with only prime digits. - _Harvey P. Dale_, Sep 17 2019
%H A128388 Harvey P. Dale, <a href="/A128388/b128388.txt">Table of n, a(n) for n = 1..2000</a>
%t A128388 Select[Prime@Range[10^4], # != IntegerReverse[ # ] && PrimeQ[IntegerReverse[ # ]] && Intersection[IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}] == {} &] (* _Ray Chandler_, Mar 06 2007; corrected by _James C. McMahon_, Jun 03 2025 *)
%t A128388 Table[Select[FromDigits/@Tuples[{2,3,5,7},n],!PalindromeQ[#]&& AllTrue[ {#, IntegerReverse[ #]},PrimeQ]&],{n,2,5}]//Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 17 2019 *)
%Y A128388 Cf. A006567, A128389, A128390.
%K A128388 base,less,nonn
%O A128388 1,1
%A A128388 _Lekraj Beedassy_, Feb 28 2007
%E A128388 Corrected by _Ray Chandler_, Mar 06 2007