Plot[ {1/2^100 * Sum[ (1-b/100)^k* Binomial[100, b] , {b,6,100} ]}, {k, 3, 5}]