(1:n)[rbinom(n,1,p)==1]