In[]:=
Table[TraditionalForm[Simplify[Abs[SeriesCoefficient[(z+1)^r/(z-1)^(r+1),{z,0,d}]],r>0]],{d,10}]
Out[]=
In[]:=
Simplify[%,n>0]
Out[]=
1-n
(-1)
2
n
In[]:=
SeriesCoefficient[(z+1)^r/(z-1)^(r+1),{z,0,d}]
Out[]=
|
In[]:=
FullSimplify[Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]]
Out[]=
Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]
In[]:=
%/.d3
Out[]=
1
3
2
r
3
r
In[]:=
Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]/.dLog[2,3]
Out[]=
Binomialr,Hypergeometric2F11+r,-,1+r-,-1
Log[3]
Log[2]
Log[3]
Log[2]
Log[3]
Log[2]
In[]:=
FullSimplify[%]
Out[]=
Binomialr,Hypergeometric2F11+r,-,r-,-1
Log[3]
Log[2]
Log[3]
Log[2]
2ArcCoth[5]
Log[2]
In[]:=
Plot[%,{r,0,10}]
Out[]=
In[]:=
Series[%122,{r,Infinity,2}]
Out[]=
(-1)^k/k!Pochhammer[-d,k]
Leading term
Leading term
In[]:=
Table[Coefficient[FunctionExpand[Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]],r^d],{d,10}]
Out[]=
2,2,,,,,,,,
4
3
2
3
4
15
4
45
8
315
2
315
4
2835
4
14175
In[]:=
FindSequenceFunction[%,d]
Out[]=
d
2
Pochhammer[2,-1+d]
In[]:=
Table[Coefficient[FunctionExpand[Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]],r^(d-1)],{d,10}]
Out[]=
Coefficient[1+2r,1],2,2,,,,,,,
4
3
2
3
4
15
4
45
8
315
2
315
4
2835
In[]:=
Rest[%]
Out[]=
2,2,,,,,,,
4
3
2
3
4
15
4
45
8
315
2
315
4
2835
In[]:=
FindSequenceFunction[%,d]
Out[]=
d
2
Pochhammer[2,-1+d]
In[]:=
Sumr^(d-k),{k,0,d}
d-k
2
Pochhammer[2,-1+d-k]
Out[]=
2r
Gamma[1+d]
In[]:=
%/.d3
Out[]=
1
6
2r
In[]:=
FunctionExpand[%]
Out[]=
12r+24+24+16
2
r
3
r
4
r
12r
In[]:=
Expand[%]
Out[]=
1+2r+2+
2
r
4
3
r
3
In[]:=
FullSimplify[Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1],d>0]
Out[]=
Binomial[r,d]Hypergeometric2F1[-d,1+r,1-d+r,-1]
In[]:=
FunctionExpand[%,d>0]
Out[]=
Gamma[1+r]Hypergeometric2F1[-d,1+r,1-d+r,-1]
Gamma[1+d]Gamma[1-d+r]
(-d,r+1;-d+r+1;-1)
r |
d |
2
F
1
2r
Γ(d+1)
In[]:=
FunctionExpand
d
2
Pochhammer[2,-1+d]
Out[]=
d
2
Gamma[1+d]
In[]:=
Gamma[5]
Out[]=
24
In[]:=
4!
Out[]=
24
In[]:=
2^d/d!
In[]:=
Table,{d,10}
d
2
d!
Out[]=
2,2,,,,,,,,
4
3
2
3
4
15
4
45
8
315
2
315
4
2835
4
14175
In[]:=
Sum[2^(d-k)/(d-k)!r^(d-k),{k,0,d}]
Out[]=
2r
d!
In[]:=
Sum[2^k/k!r^k,{k,0,d}]
Out[]=
2r
Gamma[1+d]
In[]:=
Table[%,{d,1,6}]
Out[]=
Gamma[2,2r],Gamma[3,2r],Gamma[4,2r],Gamma[5,2r],Gamma[6,2r],Gamma[7,2r]
2r
1
2
2r
1
6
2r
1
24
2r
1
120
2r
1
720
2r
Next try
Next try
Leading term
Leading term