IntegerPart[Log[256.,13000000!]]