import Numeric
main = do
	k <- readLn
	putStrLn $ flip (showFFloat (Just 12)) ""  $ (\x -> (fromIntegral x) / 36) $ length [ (p, c) | p<-[2,3,5,7,11,13], c<-[4,6,8,9,10,12], p*c==k ]