login
Expansion of e.g.f. sinh(sinh(x))*exp(x).
1

%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