WolframAlpha computational knowledge AI
Solve[D[n0*Log[2,p]+n1*Log[2,1-p],p]==0,p]