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
      do k = i, j
          if(4*i*j*k==n*(i*j+j*k+k*i)) then
          goto 100
          endif
enddo
enddo
enddo

100 write(6,"(i0,1x,i0,1x,i0)") i,j,k
end