|
%I #11 Jan 23 2015 14:10:50
%S 0,1,2,6,16,72,288,1904,10368,89344,610304,6445824,52885504,660602880,
%T 6324756480,91175548928,997700468736,16301080281088,200677417680896,
%U 3664597991424000,50126593037172736,1011727950085619712
%N Expansion of tan(sinh(x))*exp(x).
%F a(n) ~ n! * (1 + (-1)^(n+1) + (1 + (-1)^n)*Pi/sqrt(4+Pi^2)) / (log((Pi + sqrt(4 + Pi^2))/2))^(n+1). - _Vaclav Kotesovec_, Jan 23 2015
%t Tan[ Sinh[ x ] ]*Exp[ x ]
%t CoefficientList[Series[E^x*Tan[Sinh[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K nonn,easy
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
|
