| Simplify[Series[x^8 + 2*x^7 + 1, {x, -1 - Sqrt[2], 8}]]
=SeriesData[x, -1 - Sqrt[2], {10*(10 + 7*Sqrt[2]), -2*(263 + 186*Sqrt[2]), 14*(75 + 53*Sqrt[2]), -14*(79 + 56*Sqrt[2]), 70*(10 + 7*Sqrt[2]), -14*(19 + 14*Sqrt[2]), 14*(5 + 3*Sqrt[2]), -2*(3 + 4*Sqrt[2]), 1}, 0, 9, 1]
SeriesCoefficient[%, 0] =10*(10 + 7*Sqrt[2])<--コタエ (確認まで)
|