IntegerPart[Log[10.,13000000!]]