input = STDIN.readlines.map{|line|line.strip.split()}
line = input.shift
n = line[0].to_i

counts = Hash.new(0)
Range.new(2, n).each do |out_r|
    temp = out_r
    while temp > 1
        Range.new(2, temp).each do |in_r|
            if temp % in_r == 0 then
                counts[in_r] += 1
                temp /= in_r
                break
            end
        end
    end
end
ans = 0
ans += counts.select{|k,c|c>=74}.size
ans += counts.select{|k,c|c>=24}.size * (counts.select{|k,c|c>=2}.size - 1)
ans += counts.select{|k,c|c>=14}.size * (counts.select{|k,c|c>=4}.size - 1)
if counts.select{|k,c|c>=4}.size >= 2 then
    ans += counts.select{|k,c|c>=4}.size * (counts.select{|k,c|c>=4}.size - 1) / 2 * (counts.select{|k,c|c>=2}.size - 2)
end
puts(ans)