# kaisetsu no marupakuri yan ke
n = gets.to_i

$facts = Array.new(n + 1, 0)
2.upto(n) do |k|
  2.upto(n) do |p|
    while k % p == 0
      k /= p
      $facts[p] += 1
    end
  end
end

def num(m)
  $facts.select {|i| i >= m}.size
end

p num(74) +
  num(24) * (num(2) - 1) +
  num(14) * (num(4) - 1) +
  num(4) * (num(4) - 1) * (num(2) - 2) / 2