import Data.List

main = readLn >>= print.solve

solve n =
    let xs = map length$group$factorize p100$product [1..n]
        [a,b,c,d,e] = map (over xs) [2,4,14,24,74]
    in div (b * (b-1)) 2 * (a-2) + c * (b-1) + d * (a-1) + e

over xs n = length(filter(>=n)xs)

p100 = [2,3,5,7,11,13,17,19,23,29,31,37,41,43,47]

factorize [] _ = []
factorize pr@(p:ps) n = if n`rem`p==0 then p:(factorize pr (n`quot`p)) else factorize ps n