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]