wolfram-mathematica - Mathematica：重新制定多项式系数

Question

我正在寻找一种放置多项式的方法：

x + 5x^2/2 + 3x^3 + 8x^4/3 + 43x^5/24 + 43x^6/48

变成更“泰勒”的形式：

x/1! + 5x^2/2! + 18x^3/3! + 64x^4/4! + 215x^5/5! + 645x^6/6!

我的主要目标是能够从新表格中读取系数。即我对数字感兴趣：

1,5,18,64,215,645 etc..

Answer 1

这个？

poly = x + 5 x^2/2 + 3 x^3 + 8 x^4/3 + 43 x^5/24 + 43 x^6/48;
Table[poly[[i]]/x^i*i!, {i, Length[poly]}]

这使

{1, 5, 18, 64, 215, 645}