Number of Prime Numbers

-- Number of Prime Numbers
-- source: https://hackersandevelopers.wordpress.com/2017/08/04/bases-matematicas-de-la-criptografia-asimetrica-1/

-- calculates the approximate quantity of prime numbers between 0 and a given number.

primeNums = \x -> truncate $ x / log x

main = print $ primeNums 100000