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 A225234 #13 May 06 2013 11:22:09
%S A225234 1171,1319,1373,1733,1973,1979,2131,2137,2179,2311,2371,2377,2711,
%T A225234 2713,2719,2731,2791,2797,2971,3137,3313,3319,3371,3373,3719,3733,
%U A225234 3739,3793,3797,4133,4139,4177,4373,4733,4793,4799,4973,5171,5179,5711,5717,5737,5791
%N A225234 Primes whose internal digits are an emirp.
%C A225234 a(414) = 112019 is the first term with an internal even digit.
%H A225234 Christian N. K. Anderson, <a href="/A225234/b225234.txt">Table of n, a(n) for n = 1..10000</a>
%e A225234 Example: 1171 has the emirp 17 as its internal digits.
%o A225234 (R) library(gmp); isemirp<-function(x) isprime(x) & (j=paste(rev(unlist(strsplit(as.character(x),split=""))),collapse=""))!=x & isprime(j);
%o A225234 no0<-function(s){ while(substr(s,1,1)=="0" & nchar(s)>1) s=substr(s,2,nchar(s)); s}
%o A225234 i=as.bigz(0); y=as.bigz(rep(0,100)); len=0;
%o A225234 while(len<100) if(isemirp(as.bigz(no0(substr((i=nextprime(i)),2,nchar(as.character(i))-1))))) y[(len=len+1)]=i
%Y A225234 Cf. A210498, A006567, A024770, A000040, A225235, A214847.
%K A225234 nonn,base,less
%O A225234 1,1
%A A225234 _Kevin L. Schwartz_ and _Christian N. K. Anderson_, May 03 2013