 
人手で解く場合は、 を部分分数に分解する。
そのためには、
 を部分分数に分解する。
そのためには、
 を
 を  で割りたくなる。
 で割りたくなる。
| A=z^3-3z^2-z+5 B=z^2-5z+6 f=A/B q=PolynomialQuotient[A,B,z] r=PolynomialRemainder[A,B,z] | 
これから商  , 余り
, 余り  が求まる
(商は quotient, 余りは remainder.
polynomial は多項式という意味)。ゆえに
 が求まる
(商は quotient, 余りは remainder.
polynomial は多項式という意味)。ゆえに
 
 の部分分数分解を指示してもよい。
 の部分分数分解を指示してもよい。
| Apart[r/B] Apart[f] | 
 ,
,
 となる。
 となる。
結局
 
Series[f,{z,0,10}] とすると、
0 の周りの Taylor 展開を  次の項まで求めることが出来る。
 次の項まで求めることが出来る。
 (途中省略)
(途中省略) 
残念ながら、Mathematica で Taylor 展開の一般項を求めるための 簡単な手段は用意されていないようである。
人手で計算して、
 
| 
5/6+19z/36-Sum[(1/2^(n+1)+2/3^(n+1))z^n,{n,2,Infinity}]
Simplify[%]
 | 
 
 と一致したので、ほっと一息。
 と一致したので、ほっと一息。
桂田 祐史