Problem 65

Problem 65 - Project Euler
与えられている情報を利用してしまえばなんということはない。
しかしまたgmpに頼ってしまった感があるっちゃある。

library(gmp)

a.seq <- numeric(100)
a.seq[1] <- 2
count <- 1
for(i in 2:100){
  if(i%%3==0){
    a.seq[i] <- count*2
    count <- count+1
  }else{
    a.seq[i] <- 1
  }
}

num <- as.bigz(1)
den <- a.seq[100]
for(a in a.seq[99:1]){
  num <- num + den*a
  temp <- den
  den <- num
  num <- temp
}
sum(as.numeric(strsplit(as.character(den),"")[[1]]))