apply n f x = foldr ($) x (replicate n f)

main = readLn >>= print . evr 

evr n = sum $ apply (n-1) (\xs -> sum (map (/6) xs) : xs) [1]