login
Expansion of e.g.f. tan(sinh(x)*cos(x)), odd powers only.
1

%I #23 Feb 09 2014 12:56:50

%S 1,0,-28,-448,12112,1368576,6365504,-12034425856,-1083196126976,

%T 198483816038400,67920087885661184,-1384610933181693952,

%U -5947819353252706660352,-1087299291711947739365376

%N Expansion of e.g.f. tan(sinh(x)*cos(x)), odd powers only.

%H Vincenzo Librandi, <a href="/A009685/b009685.txt">Table of n, a(n) for n = 0..100</a>

%t With[{nn=30},Take[CoefficientList[Series[Tan[Sinh[x]Cos[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jan 18 2014 *)

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, Jan 18 2014

%E Clarified definition, _Joerg Arndt_, Feb 09 2014