|
本帖最后由 王守恩 于 2020-6-27 08:53 编辑
Table[Abs[EulerE[n] + EulerE[n, 1]*2^n], {n, 1, 17}]
{1, 1, 2, 5, 16, 61, 272, 1385, 7936, 50521, 353792, 2702765,
22368256, 199360981, 1903757312, 19391512145, 209865342976}
Table[n!, {n, 0, 17}] CoefficientList[Series[Sec[x]+Tan[x], {x, 0, 17}], x]
{1, 1, 1, 2, 5, 16, 61, 272, 1385, 7936, 50521, 353792, 2702765,
22368256, 199360981, 1903757312, 19391512145, 209865342976}
|
|