IntegerPart[-Log[10, E/2]+Log[10,9]*(4^42)]