login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Expansion of exp(sinh(x))*x.
0

%I #14 Dec 20 2024 15:27:09

%S 0,1,2,3,8,25,72,259,1024,4113,18720,89859,451200,2452905,13870976,

%T 82466115,517341184,3364642465,22907884032,162289204995,1190546278400,

%U 9080010901689,71557772290048,582825476943747,4904509780131840

%N Expansion of exp(sinh(x))*x.

%t With[{nn=30},CoefficientList[Series[Exp[Sinh[x]]*x,{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 20 2024 *)

%K nonn,easy

%O 0,3

%A _R. H. Hardin_

%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.

%E Previous Mathematica program replaced by _Harvey P. Dale_, Dec 20 2024