let () = Scanf.scanf "%d" (fun n ->
  begin
    List.concat @@ Array.to_list @@ Array.init 3500 (fun h ->
    Array.to_list @@ Array.init (3500 - h) (fun w -> (h + 1, h + w + 1))) end
  |> List.find (fun (h, w) ->
      4 * h * w > n * w + n * h && (n * h * w) mod (4 * h * w - n * w - n * h) = 0)
  |> (fun (h, w) -> Printf.printf "%d %d %d\n" h ((n * h * w) / (4 * h * w - n * w - n * h)) w))