I computed these digits using:
logValue = log10[96717311574016] * (16777216^7 * 8^2) + log10[7] * 2051; fracPart = fractionalPart[logValue]; firstDigits = N[10^fracPart, 1, 000, 000]; firstDigitsStr = toString[NumberForm[firstDigits, 100, 000, 000]]; availableLength = stringLength[FirstDigitsStr]; stringTake[FirstDigitsStr, Min[100, 000, 000, availableLength]]