Integrate[(a^(I x) Log[x])/x, x]