program test
implicit none

integer :: n,i,j,is_prime(100)=1,i_temp,kosuu(100)=1,ans=0,rank(5)=0
integer :: kijyun(5)=(/75,25,15,5,3/)

read(*,*) n

!素数かどうか調べる
is_prime(1)=0
do i=2,100
	do j=2,10
		if( i/j >= 2 .and. mod(i,j) == 0) then
			is_prime(i) = 0
		endif
	enddo
enddo

!Nの階乗を素因数分解
do i=2,n
	do j=2,i
		if(is_prime(j) == 1) then
			i_temp = i
			do while(mod(i_temp,j) == 0)
				kosuu(j) = kosuu(j) + 1
				i_temp = i_temp/j
			enddo
		endif
	enddo
enddo

!75,25,15,5,3以上の個数
do i=2,n
	do j=1,5
		if(kosuu(i)>=kijyun(j))then
			rank(j) = rank(j) + 1
		endif
	enddo
enddo

!75
ans = ans + rank(1)

!25*3
ans = ans + rank(2)*max(0,rank(5)-1)

!15*5
ans = ans + rank(3)*max(0,rank(4)-1)

!5*5*3
if(rank(4)>=2) then
	ans = ans + rank(4)*(rank(4)-1)/2*(rank(5)-2)
endif

write(*,*) ans

end program
