main :: IO ()
main = print
$ length
$ [a | a <- [0..2000],
a `mod` 2 /= 0,
a `mod` 3 /= 0,
a `mod` 5 /= 0,
a `mod` 7 == 0]