%I #14 Feb 09 2014 04:06:06
%S 1,1,1,-2,-11,8,253,344,-9463,-44416,491609,5130368,-30257347,
%T -688030080,1480493589,109875416832,177416283793,-20650894622720,
%U -125705754161615,4460981432725504,53738108098148101,-1069938200055119872
%N Expansion of e.g.f. exp(sin(tanh(x))).
%H Vincenzo Librandi, <a href="/A009204/b009204.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=30},CoefficientList[Series[Exp[Sin[Tanh[x]]],{x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 16 2013 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition clarified and Mathematica program replaced by _Harvey P. Dale_, Jun 16 2013
|