main = readLn >>= print . evr 0

evr x n
 | x >= n = 0
 | x == n-1 = 1
 | otherwise = 1 + sum (map (\a -> evr (x+a) n * (1/6)) [1..6])