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

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

end
