FindRoot[Log[Gamma[x+1]] == 22000000*Log[2],{x,10^6}]