DigitCount[N[Pi,10001]]