%I #20 Oct 18 2015 07:05:59
%S 0,1,2,5,12,37,118,457,1816,8169,37354,188685,974372,5497741,31769182,
%T 197920145,1259350576,8541537105,59073098706,432381471509,
%U 3226127944764,25340238127989,202778723085382,1699894200469849
%N Expansion of e.g.f. sinh(sinh(x))*exp(x).
%H Matthew House, <a href="/A009598/b009598.txt">Table of n, a(n) for n = 0..591</a>
%F E.g.f.: sinh(sinh(x))*exp(x).
%t CoefficientList[Series[Sinh[Sinh[x]] * Exp[x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Oct 18 2015 *)
%o (PARI) x='x+O('x^33); concat(0, Vec(serlaplace(sinh(sinh(x))*exp(x)))) \\ _Michel Marcus_, Oct 17 2015
%K nonn,easy
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested by _Olivier GĂ©rard_, Mar 15 1997