class Integer
  def d_list
    return [1] if self == 1
    (1..Math.sqrt(self).to_i).select do |i|
      self%i == 0
    end.map {|e| [e, self/e]}.flatten.uniq.sort
  end
end
N=gets.to_i
ps=[2,3,5,7,11,13,17,19,23,29,31,37,41,43,47]
def com(n,k)
  return 0 if n<=0 || k<=0
  return (1..n).inject(:*)/((1..n-k).inject(:*)*(1..k).inject(:*))
end
hs=Hash.new{0}
for i in 1..N
  ps.each do |e|
    a=i
    while true
      break if a%e!=0
      a/=e
      hs[e]+=1
    end
  end
end
ns=Array.new(N,0)
ps.each do |e|
  hs[e].times do |i|
    ns[i+1]+=1
  end
end
puts com(ns[4],2)*com(ns[2]-2,1)+com(ns[14],1)*com(ns[4]-1,1)+com(ns[24],1)*com(ns[2]-1,1)+com(ns[74],1)