Finding a good proposal distribution for importance sampling

Question

I\'m trying to implement variance reduction by importance sampling in R. I have done Monte Carlo integration with the following:

f = c(x-3)^3, where