WolframAlpha computational knowledge AI
NSolve[x*Log[x]-x==22000000*Log[2],x]