OFFSET
1,1
COMMENTS
a(414) = 112019 is the first term with an internal even digit.
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
EXAMPLE
Example: 1171 has the emirp 17 as its internal digits.
PROG
(R) library(gmp); isemirp<-function(x) isprime(x) & (j=paste(rev(unlist(strsplit(as.character(x), split=""))), collapse=""))!=x & isprime(j);
no0<-function(s){ while(substr(s, 1, 1)=="0" & nchar(s)>1) s=substr(s, 2, nchar(s)); s}
i=as.bigz(0); y=as.bigz(rep(0, 100)); len=0;
while(len<100) if(isemirp(as.bigz(no0(substr((i=nextprime(i)), 2, nchar(as.character(i))-1))))) y[(len=len+1)]=i
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, May 03 2013
STATUS
approved