program ABC052C
    implicit none
    integer(8)::N,sn,i,j,k
    integer(8)::result=1
    integer(8),dimension(1000)::L
    read(5,*)N
    L=0
    do i=1,N
        k=i
        do j=2,i
            do
                if(mod(k,j)==0)then
                    L(j)=L(j)+1
                    k=k/j
                else
                    exit
                end if
            end do
        end do
    end do

    do i=1,1000
        !print'(i0,1x,i0)',i,L(i)
        result=result*(L(i)+1)
        result=mod(result,10**9+7)
    end do

    print'(i0)',result
end program ABC052C