In[]:=
A=Integrate[E^(-a(x^2))x^(1/2-h)BesselK[1/2+n,xb],x]/.n->2/.h->1//Expand
Out[]=
π
2
-bx-a
2
x
3
2
b
2
x
3
bx
x
bx
PacletInstall["https://rulebasedintegration.org/Rubi-4.17.3.0.paclet"]
In[]:=
<<Rubi`
Rubi 4.17.3.0 running on Mathematica 14.2
In[]:=
B=E^(-a(x^2))x^(1/2-h)BesselK[1/2+n,xb]/.n->2/.h->1//Expand
Out[]=
3
-bx-a
2
x
π
2
bx
3
b
7/2
x
3
-bx-a
2
x
π
2
bx
2
b
5/2
x
-bx-a
2
x
π
2
bx
b
3/2
x
In[]:=
B1=Int[B,x]//ExpandAll
Out[]=
--+-+-++π+-+π++++
3
-bx-a
2
x
π
2
bx
4
3
b
9/2
x
3
-bx-a
2
x
π
2
bx
4
2
b
7/2
x
3a
-bx-a
2
x
π
2
bx
4
3
b
5/2
x
-bx-a
2
x
π
2
bx
8b
5/2
x
-bx-a
2
x
π
2
bx
8
3/2
x
5a
-bx-a
2
x
π
2
bx
4
2
b
3/2
x
a
-bx-a
2
x
2π
bx
2
b
3/2
x
a
2
b
4a
bx
Erfb
2
a
a
x8
2
x
5π+
3/2
a
2
b
4a
bx
Erfb
2
a
a
x4
2
2
b
x
2
3/2
a
2
b
4a
bx
Erfb
2
a
a
x2
b
x
3,x
2
a
π
2
bx
Int-bx-a
2
x
x
2
3
b
x
a,x
π
2
bx
Int-bx-a
2
x
x
2b
x
b,x
π
2
bx
Int-bx-a
2
x
x
8
x
Int,x(*Can't*)
-bx-a
2
x
x
Out[]=
Int,x
-bx-a
2
x
x
Integrate,x(*Can't*)
-bx-a
2
x
x
Out[]=
x
-bx-a
2
x
x
In[]:=
Int,x//PowerExpand
-bx
x
(-a)^n
2
x
n!
Out[]=
-Gamma[2n,bx]
n
(-1)
n
a
-2n
b
n!
In[]:=
InactivateIntegrate,x,Integrate==InactivateSum-Gamma[2n,bx],{n,0,Infinity}+C,Sum
-bx-a
2
x
x
n
(-1)
n
a
-2n
b
n!
Out[]=
xC+-Gamma[2n,bx]
-bx-a
2
x
x
∞
∑
n=0
n
(-1)
n
a
-2n
b
n!