integrals.wolfram.com   Use one of Mathematica's 2500+ functions FREE online

Wolfram Mathematica Online Integrator
The world's only full-power integration solver
∫
-(CosIntegral[a + x]*Sin[a]) + Cos[a]*SinIntegral[a + x]

Integrate[Sin[x]/(a + x), x] ==
-(CosIntegral[a + x]*Sin[a]) + Cos[a]*SinIntegral[a + x] 

          Sin[x]
Integrate[------, x] == 
          a + x

-(CosIntegral[a + x] Sin[a]) + 
 
  Cos[a] SinIntegral[a + x]
Time to compute: 0.02 second
Spread the word: