main = interact $ show . ans . (read :: String -> Integer)

c n k = div (product [n-k+1..n]) (product [1..k])

d p n k f = sum [((-1)^(k-p*n-i))*(c n i)*(c (-n) (k-p*n-(f-p)*i)) | i <- [0..(div (k-n*p) (f-p))]]

ans t = sum [d 1 i t 10 | i <- [0..t]]