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