%I #13 Apr 11 2014 10:16:53
%S 0,1,2,-1,-28,-123,182,7667,54280,-145239,-7508758,-69740537,
%T 300239084,17444352109,197525621022,-1252976775365,-79313336380656,
%U -1042490265261103,9235164337672658,623118827676161167
%N Expansion of tanh(tanh(x)*exp(x)).
%H Vincenzo Librandi, <a href="/A009822/b009822.txt">Table of n, a(n) for n = 0..200</a>
%t Tanh[ Tanh[ x ]*Exp[ x ] ]
%t With[{nn = 50}, CoefficientList[Series[Tanh[Tanh[x]Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* _Vincenzo Librandi_, Apr 11 2014 *)
%K sign
%O 0,3
%A _R. H. Hardin_, _Simon Plouffe_