main :: IO () main = show . solve . read <$> getLine >>= putStrLn solve :: Double -> Int solve n = truncate r where r = sqrt $ n / 3