How to write code to check if elements all are equal to 1 or 4 and then extract indexes of values >= 3

Question

For a given vector:

Drink_Choice <- c(NA, 3, 4, 2, 1, 2, 5, NA)

where 1-5 equals a certain drink type

1) All value