implicit none
integer(8) :: i, j, k, n, r, g, b, ans
read(5,*) r, g, b, n
ans = 0
do i = 0, n/r + 1
    do j = 0, n/g + 1
        do k = 0, n/b + 1
            if(r*i+g*j+b*k==n) then
            ans = ans + 1
            endif
        enddo
    enddo
enddo
!write(6, *) r, g, b, n
write(6,"(i0)") ans
end