Tag Info

New answers tagged

7

Counting Strings may be faster, so I propose the string version: countZeros[x_Integer] := StringCount[IntegerString[x!], "0"] Then: countZeros[1000] 472


8

Count[IntegerDigits[#!], 0] & /@ Range[1, 100000, 2000] // ListLogPlot



Top 50 recent answers are included