He encontrado la siguiente integral sin respuesta y he intentado calcularla. Según wolframio es igual a
∫∞0cosxarctanxxdx=0,344608
Para evaluarlo, he introducido un parámetro, y he considerado la versión
I(a)=∫∞0cos(x)arctan(ax)xdx
I′(a)=∫∞0cos(x)xx(1+a2x2)dx
I′(a)=1a2∫∞0cos(x)1a2+x2dx
I′(a)=π2⋅e−1aa
I(a)=π2∫a0e−1ttdt
en el último paso, si dejamos que a=1 obtenemos la integral original
I(1)=π2∫10e−1ttdt
dejando t=1t la integral se convierte en
I(1)=π2∫∞1e−uudu
I(1)=−π2Ei(−1)
Que coincide numéricamente con la integral original.
Podemos intentar integrar por partes la última integral
I(1)=π2(e−uln(u)|∞1+∫∞1e−uln(u)du)
I(1)=π2∫∞1e−uln(u)du