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 A225235 #18 Jul 26 2022 22:02:10
%S A225235 1979,3319,3371,3373,3719,3733,7177,7717,9133,9173,9791,10177,10711,
%T A225235 10739,11071,11497,11579,11677,13477,13591,13597,17011,17393,17519,
%U A225235 19531,19913,30139,30319,30971,31139,31799,31991,37619,39371,39419,39839,70313,70373,70717
%N A225235 Emirps whose internal digits are also an emirp.
%C A225235 This sequence (like the emirps) experiences large gaps when the most-significant-digit is {2,4,5,6,8}.
%H A225235 Christian N. K. Anderson, <a href="/A225235/b225235.txt">Table of n, a(n) for n = 1..10000</a>
%e A225235 7177 and 10177 are in the sequence because both are emirps, and both become the emirp 17 upon deletion of their first and last digits.
%o A225235 (R) library(gmp); isemirp<-function(x) isprime(x) & (j=paste(rev(unlist(strsplit(as.character(x), split=""))), collapse=""))!=x & isprime(j);
%o A225235 no0<-function(s){ while(substr(s,1,1)=="0" & nchar(s)>1) s=substr(s,2,nchar(s)); s};
%o A225235 i=as.bigz(0); y=as.bigz(rep(0, 100)); len=0;
%o A225235 while(len<100) if(isemirp((i=nextprime(i)))) if(isemirp(as.bigz(no0(substr(i,2,nchar(as.character(i))-1))))) y[(len=len+1)]=i;
%o A225235 as.vector(y)
%Y A225235 Cf. A210498, A006567, A069686, A210498.
%K A225235 nonn,base,less
%O A225235 1,1
%A A225235 _Kevin L. Schwartz_ and _Christian N. K. Anderson_, May 03 2013