|
%I #16 May 05 2018 15:27:12
%S 0,1,0,5,-12,96,-480,3968,-29568,283840,-2759040,31139712,-369431040,
%T 4852567552,-67622790144,1018594276352,-16267048304640,
%U 277008597516288,-4982377179119616,94730142262034432,-1894021067538432000
%N Expansion of tan(x)*cosh(log(1+x)).
%F a(n) ~ n! * (-1)^(n+1) * tan(1) / 2. - _Vaclav Kotesovec_, Jan 23 2015
%t CoefficientList[Series[((1 + (1 + x)^2)*Tan[x])/(2*(1 + x)), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%t With[{nn=30},CoefficientList[Series[Tan[x]*Cosh[Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 05 2018 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E First previous Mathematica program replaced by _Harvey P. Dale_, May 05 2018
|
