OFFSET
1,1
COMMENTS
This sequence (like the emirps) experiences large gaps when the most-significant-digit is {2,4,5,6,8}.
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
EXAMPLE
Example: a(1)=131, which becomes 13 upon deletion, which is an emirp.
PROG
(R) library(gmp); isemirp<-function(x) isprime(x) & (j=paste(rev(unlist(strsplit(as.character(x), split=""))), collapse=""))!=x & isprime(j); i=as.bigz(0); y=as.bigz(rep(0, 100)); len=0;
while(len<100)
if(isprime((i=nextprime(i))))
if(isemirp(as.bigz(substr(i, 1, nchar(as.character(i))-1))))
y[(len=len+1)]=i
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, May 03 2013
STATUS
approved