require 'prime'
a = [*1..gets.to_i].inject(Hash.new{0}){|a, b| b.prime_division.each{|k,v| a[k] += v}; a}.values.map(&:succ).select{|a| a >= 3}
ans = 0r
[
  [3,5,5],
  [3,25],
  [5,15],
  [75]
].each do |b|
  a.permutation(b.length).each do |c|
    z = true
    (0...b.length).each do |i|
      if b[i] > c[i]
        z = false
        break
      end
    end
    ans += (b.length == 3 ? 1/2r : 1r) if z
  end
end
p ans.to_i