import Text.Printf

main = do
 k <- readLn
 let d = length [() | p<-[2,3,5,7,11,13], c<-[4,6,8,9,10,12], p*c==k]
 printf "%.15f" (fromIntegral d / 36 :: Double)