N integrate integration strategies double exponential oscillatory integration

NIntegrate[Sin[2 * x] * (1 / x^2), {x, 1, ∞}, Method -> {"DoubleExponentialOscillatory", "SymbolicProcessing" -> 0}]

NIntegrate[Sin[2*x]/x^2, {x, 1, Infinity}, Method -> {DoubleExponentialOscillatory, SymbolicProcessing -> 0}]

exact = Limit[Integrate[Exp[-c x]Log[x]Sin[x], {x, 0, ∞}, Assumptions -> c > 0], c -> 0]

Integrate[Log[x]*Sin[x], {x, 0, Infinity}]

NIntegrate[Log[x]Sin[x], {x, 0, ∞}] - exact

-8.201332694086795*^18 - Integrate[Log[x]*Sin[x], {x, 0, Infinity}]

exact = Integrate[Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), {x, 0, ∞}]

Integrate[(Cos[18*x]*Sin[20*x])/Sqrt[1 + x], {x, 0, Infinity}]

NIntegrate[Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), {x, 0, ∞}, PrecisionGoal -> 10] - exact

6.345921784313157*^12 - Integrate[(Cos[18*x]*Sin[20*x])/Sqrt[1 + x], {x, 0, Infinity}]

Plot[{Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), Sin[20x]}, {x, 0, 3}]

-Graphics-