import Text.Printf

main = do
    input <- getLine
    let k = read input :: Int
    printf "%.14f\n" (probability k)

probability :: Int -> Double
probability k = fromIntegral (length [x*y | x <- [2,3,5,7,11,13], y <- [4,6,8,9,10,12], x*y == k]) / 36