Tag Info

Hot answers tagged

8

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


7

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



Only top voted, non community-wiki answers of a minimum length are eligible