Integrate[(a^(I x) Log[x])/x, {x, 1.*^-16, Plus[Infinity]}]