implicit none
integer(8) :: i,j,k,n
 
read(5,*) n

if (n==2) then
write(6,"(i0,1x,i0,1x,i0)") 1,2,2

else
do i = int(3*n/4),1,-1
  do j = int(3*n/4), 3500
          if (mod(N*i*j,4*i*j-N*i-N*j)==0) then
            goto 100
          endif
enddo
enddo
 
100 write(6,"(i0,1x,i0,1x,i0)") i,j,(N*i*j)/(4*i*j-N*i-N*j)

endif

end
