FourierTransform[x HeavisideTheta[x], x, k]