program nanagoroku
  implicit none
  integer :: n, i, j, m, c(100) = 0, a(5) = 0
  read(*,*) n
  do i = 1, n
    m = i
    j = 2
    do while (j <= m)
      do while (mod(m,j) == 0)
        m = m/j
        c(j) = c(j)+1
      end do
      j = j+1
    end do
  end do
  do i = 1, n
    if (c(i) >= 2) a(1) = a(1)+1
    if (c(i) >= 4) a(2) = a(2)+1
    if (c(i) >= 14) a(3) = a(3)+1
    if (c(i) >= 24) a(4) = a(4)+1
    if (c(i) >= 74) a(5) = a(5)+1
  end do
  write(*,'(i0)') (a(1)-1)*a(4)+(a(1)-2)*a(2)*(a(2)-1)/2+(a(2)-1)*a(3)+a(5)
end program nanagoroku