To find the common elements from multiple vectors, you can use the intersect function from the sets base R package.
The basic syntax is given below:
intersect(x, y)
x, y
vectors (of the same mode) containing a sequence of items (conceptually) with no duplicate values.
Intersect will discard any duplicated values in the arguments, and they apply as. vectors to their arguments (and so, in particular, coerce factors to character vectors).
In your case:
a <- c(1,3,5,7,9)
b <- c(3,6,8,9,10)
c <- c(2,3,4,5,7,9)
> intersect(intersect(a,b),c)
[1] 3 9
OR
Reduce(intersect, list(a,b,c))
[1] 3 9