solve :: Int -> String
solve largeN = h ++ " " ++ n ++ " " ++ w
  where
      l = [1 .. 3500]
      h:n:w:_ = fmap show $ head [[h, n, ((largeN * h * n) `div` (4 * h * n - largeN * n - largeN * h))] | h <- l, n <- l, (4 * h * n - largeN * n - largeN * h) > 0, (largeN * h * n) `mod` (4 * h * n - largeN * n - largeN * h) == 0]

main :: IO ()
main = do
  largeN <- readLn :: IO Int
  putStrLn $ solve largeN
