gostare<-function(n){
  f<-c()
  f[1]<-1
  f[2]<-2
  f[3]<-4
  for (i in 4:n){
    f[i]<-f[i-1]+f[i-2]+f[i-3]}
  return(f[n])}