Problem 63

Problem 63 - Project Euler
何も考えずに滅茶苦茶な範囲を調べるところだった．

library(gmp)

count <- 0
for(b in 1:9){
  p <- 1
  repeat{
    d.length <- nchar(as.character(pow.bigz(b,p)))
    if(d.length ==p){
      count <- count+1
    }else{
      break
    }
    p <- p+1
  }
}