main = do
  n <- readLn
  let p (h, w) = let den = 4 * h * w - n * (w + h)
                 in den > 0 && (n `mod` den * h `mod` den * w `mod` den) `mod` den == 0
      (h, w):_ = filter p [ (h, w) | h <- [1..3500], w <- [1..3500] ]
      n' = (n * h * w) `div` (4 * h * w - n * (w + h))
  putStrLn $ show h ++ " " ++ show n' ++ " " ++ show w
