import Control.Monad
import Data.List
import Data.Maybe
main = do
  n <- readLn
  let ans =
        [ [a, b, c] | a <- [1 .. 3500 :: Int], b <- [1 .. 3500 :: Int], let ue = n * a * b, let sita = if 4 * a * b - n * (a + b) == 0 then 9999 else 4 * a * b - n * (a + b), let c = div ue sita, mod ue sita == 0 && c > 0
        ]

  mapM print $ head ans