require 'prime'

n = gets.to_i

h = Hash.new(0)
1.upto(n) {|i| i.prime_division.each {|k,v| h[k] += v}}

h = h.values.sort_by {|e| -e}
s = h.size
x = [[74, s], [24, s], [14, s], [4, s], [2, s]]
i = 0
h.each_with_index do |e, j|
    while i < 5 && x[i][0] > e
        x[i][1] = j
        i += 1
    end
end

#p x, h
x.map!{|e| e[1]}
ans = x[0]
ans += x[1] * (x[4] - 1)
ans += x[2] * (x[3] - 1)
ans += x[3] * (x[3] - 1) * (x[4] - 2) / 2
p ans