DigitCount[N[Pi,1001]]