%I#29 2017年9月6日17:47:39

%S 1,5,81342923827325669093323627345807194393477215176572950017，

%电话：7212051685747514129686285367774651089147216852776234894885，

%电话：86568578575964851419734415955926696414663185424979749

%N例如，tan（x*cosh（x）），省略零。

%F a（n）=b（2*n+1）其中b（n）=和{k=1..n}（二项式（n，k）*（（-1）^（k-1）+1）*（和{i=0..k}（k-2*i）^*2^（k-j-1）*（-1）^（（k+1）/2+j）*斯特林2（k，j））/（2^k））_弗拉基米尔·克鲁奇宁（Vladimir Kruchinin），2011年4月21日

%t使用[{nn=30}，取[CoefficientList[Series[Tan[Cosh[x]*x]，{x，0，nn}]，x]范围[0，nn-1]！，{2，-1,2}]]（*哈维·P·戴尔，2017年9月6日*）

%o（最大值）

%o a（n）：=b（2*n+1）；

%o b（n）：=总和（二项式（n，k）*（（-1）^（k-1）+1）*（总和（（k-2*i）^_弗拉基米尔·克鲁奇宁（Vladimir Kruchinin），2011年4月21日*/

%o（PARI）

%o a（n）={n=2*n+1；和（k=1，n，二项式（n，k）*（（-1）^（k-1）+1）*（和（i=0，k，（k-2*i）^_Joerg Arndt_2011年4月22日*/

%K nonn公司

%0、2

%A·R·H·哈丁_

%E由_Livier Gérard_1997年3月15日进行扩展和符号测试

%E姓名由Joerg Arndt_更正，2011年4月23日

%E之前的Mathematica程序由_Harvey P.Dale_取代，2017年9月6日