A225234 Primes whose internal digits are an emirp.
1171, 1319, 1373, 1733, 1973, 1979, 2131, 2137, 2179, 2311, 2371, 2377, 2711, 2713, 2719, 2731, 2791, 2797, 2971, 3137, 3313, 3319, 3371, 3373, 3719, 3733, 3739, 3793, 3797, 4133, 4139, 4177, 4373, 4733, 4793, 4799, 4973, 5171, 5179, 5711, 5717, 5737, 5791
Offset: 1
Examples
Example: 1171 has the emirp 17 as its internal digits.
Links
- Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
Programs
-
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
Comments