expc :: Int -> Int -> Float
expc x k = if x >= k
	then 0
	else sum[(expc (x+i) k) / 6 | i<-[1..6]] + 1

main = do
	k <- readLn
	print $ expc 0 k