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
  k=n-k if 2*k > n
  return 1 if k == 0
  ((n-k+1)..n).reduce(&:*)/((1..k).reduce(&:*))
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(105,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)
