R-function to find probability of guessing the value on a card faced down

from 10000 random generated samples, I have to create a code to compute probability that I never guess the right number on the card when six cards from 6-10 are turned upside down you cannot guess the same number more than once. this is what I have come up with so far:

k1 <- 0:6
probability <- dbinom(x = k1,
                      size = 6, 
                      prob = )
plot(x = k1, 
     y = probability,
     main = "Probability Distribution Function")
mean(sample(1:6,10000, replace = T))

mean(sample(1:7,10000, replace = T))
mean(sample(1:8,10000, replace = T))
mean(sample(1:9,10000, replace = T))
mean(sample(1:10,10000, replace = T))

any help would be appreciated :)