// Try AtCoder
// author: Leonardone @ NEETSDKASU

let solve n =
   seq { 1 .. 3500 }
   |> Seq.tryPick (fun a ->
          seq { 1 .. 3500}
          |> Seq.tryPick (fun b ->
                   if n*a*b%(4*a*b-a-b) = 0 then
                       Some(a,b)
                   else
                       None))

[<EntryPoint>]
let main _ =
   let n = int <| stdin.ReadLine()
   if n % 2 = 0 then
      printfn "%d %d %d" n n (n / 2)
   elif n % 3 = 0 then
      printfn "%d %d %d" (n*2) (n*2) (n/3)
   elif (n+1) % 4 = 0 then
      let k = (n+1) / 4
      printfn "%d %d %d" (2*k) (2*k) (k*n/(4*k-1))
   else
      let (a,b) = Option.get <| solve n
      printfn "%d %d %d" (a*n) (b*n) (n*a*b/(4*a*b-a-b))
   0