num.fibs=50
r=numeric(num.fibs)
r[1]=1
r[2]=1
for (i in 2:(num.fibs-1)) {
   r[i+1]=r[i]+r[i-1]
}
r