How to code a subscript i within a function?

I have the following function that I am trying to write in R:

Currently, I have the following code, but I don't understand how to denote the subscript i?

f5 <- function(x) {((x^4 - 16*x^2 + 5*x)/2)}