main = do
    large_n_ <- readLn::IO Integer
    let
	hstart = min (3*large_n_`quot`4) 3500

	ans = [ (h,n,w) |
		h<-[hstart,hstart-1..1]				   ,
		n<-[h..min 3500 ((2*large_n_*h)`quot`(4*h-large_n_))],
		(w,r) <-[(h*n*large_n_)`quotRem`(4*h*n-large_n_*(n+h))],
		 r==0&&w>0		]

	print' (a,b,c) = putStr $
			    (show a)++" "++(show b)++" "++(show c)
    case large_n_ of
	2   -> putStr "1 2 2"
	_   -> print' $ head ans
