%I#15 2013年5月6日11:24:06

%第113131137173179197271313317331337373379397431479571页，

%电话：613617631673773797937971997101310311097170917331907，

%电话：20172113217923112347238929532971303730793167334733593387013709

%删除最重要的digit后成为emirps的N个素数。

%H Christian N.K.Anderson，N的表，a（N）表示N=1..10000</a>

%e 113和1013都在序列中，因为删除后它们变成13，这是emirp。

%o（R）库（gmp）；isemirp<-function（x）isprime（x）&（j=粘贴（rev（unlist（strsplit（as.character（x），split=“”）），塌陷=“”=x和i质数（j）；

%o no0<-函数{while（substr（s，1,1）==“0”&nchar（s）>1）s=substr（s，2，nchar（s））；s}

%o i=as.bigz（0）；y=as.bigz（代表（0100））；长度=0；

%o同时（长度<100）

%o如果（isemirp（as.biz（no0（substr（（i=nextprime（i）），2200）））

%oy[（len=len+1）]=i

%Y参见A210498、A006567、A024770、A000040、A225235、A225234。

%K nonn，基数，减去

%O 1,1号机组

%A _ Kevin L.Schwartz _和C Christian N.K.Anderson _，2013年5月3日