Hice esto principalmente por diversión y lo estoy publicando aquí para que lo revisen y corrijan si cometí un error. Esta es una versión considerablemente más simple de esta solución que publiqué hace un par de meses.
¡Por favor comente con cualquier corrección, pregunta, comentario o inquietud y espero que lo encuentre tan interesante como yo! Además, todavía soy bastante nuevo en la comunidad y no estoy seguro de estar usando el formato de respuesta a su propia pregunta de manera adecuada, así que no dude en informarme si ese es el caso.
Por último, aquí hay un enlace a los gráficos en Desmos y una función de Mathematica destinada a compararse con NIntegrate.
eci[x_] := N[ Tabla[Suma[ Suma[Sin[x*(n - 2 k)]/((n - k)! k! (n - 2 k)*2^(n - 1 ) ) , {k, 0, Piso[(n - 1)/2]}], {n, 1, L}] + BesselI[0, 1]*x, {L, 100, 100}]];
eciN[x_] := NIntegrate[E^Cos[z], {z, 0, x}];
Hans Lundmark
Bailén Huggins
David G. Cigüeña
K.defaoite