1-Drop[RealDigits[NIntegrate[x^x, {x,4,5}, WorkingPrecision -> 200],2][[1]],554]