Divide[p*Divide[1-Power[2,m]Power[(1-p),m],1-2(1-p)],p(2*Divide[1-Power[2,m-1]Power[(1-p),m-1],1-2(1-p)]-Divide[1-Power[(1-p),m-1],1-(1-p)])+Power[(1-p),m-1](Power[2,m]-1)]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.