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 A178546 #20 Sep 06 2023 19:05:55
%S A178546 107,13,1021,13,149,157,167,17,389,79,107,113,1201,13,149,157,167,17,
%T A178546 1181,199,1201,1021,1223,1223,1249,1259,12269,1279,1283,1229,1301,31,
%U A178546 1321,337,347,359,3613,37,389,739,1409,941,1429,743,11447,1453,3463,347,1487,149,7507
%N A178546 Emirps in which n first occurs as a substring.
%H A178546 Alois P. Heinz, <a href="/A178546/b178546.txt">Table of n, a(n) for n = 0..2000</a>
%t A178546 emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!=ridn && PrimeQ[ FromDigits[ ridn]]]; nss[n_]:= Module[{idn=IntegerDigits[n]}, Select[e,MemberQ[Partition[ IntegerDigits[#],Length[idn],1],idn]&,1]]; With[{e=Select[Prime[Range[50000]],emrpQ]},Flatten[ Join[{107}, Table[ nss[i], {i,50}]]]] (* _Harvey P. Dale_, Oct 08 2012 *)
%Y A178546 Cf. A006567, A062584.
%K A178546 nonn,base
%O A178546 0,1
%A A178546 _Lekraj Beedassy_, May 29 2010
%E A178546 Corrected and extended by _Harvey P. Dale_, Oct 08 2012