main = readLn >>= putStrLn . unwords . map show . solve
-- https://ja.wolframalpha.com/input/?i=4%2Fn+%3D+1%2Fa%2B1%2Fb%2B1%2Fc+%E3%82%92+c%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%A7%A3%E3%81%8F
solve n = head $
  [ [a, b, c]
  | a <- [1..3500], b <- [1..3500]
  , a*b*n <= 3500 * (4*a*b-a*n-b*n)
  , 4*a*b /= n*(a+b)
  , mod (a*b*n) (4*a*b-a*n-b*n) == 0
  , let c = div (a*b*n) (4*a*b-a*n-b*n)
  , 1 <= c
  ]