YGC

 library(gmp)
 n <- 11:1000000
 idx <- as.logical(sapply(n, isprime))
 p <- n[idx]
 
 truncate.right <- function(n){
   flag <- 0
   tr.n <- floor(n/10)
   if (isprime(tr.n) == 2){
     if (tr.n < 10){
       flag <- 1
     }else {
       flag <- truncate.right(tr.n)
     }
   }
   return (flag)
 }
 
 flag.list <- sapply(p, truncate.right)
 p1 <- p[as.logical(flag.list)]
 
 flag.list <- c()
 for (i in p1) {
   flag <- 0
   i.length <- length(unlist(strsplit(as.character(i),'')))
   tr.l <- sapply(1:i.length,function(x) i %% 10^x)
   is.p <- sapply(tr.l, isprime)
   if (length(which(is.p==2)) == i.length)
     flag <- 1
   flag.list <- c(flag.list,flag)
 }
 
 p2 <- p1[as.logical(flag.list)]
 sum(p2)