%I #31 Feb 09 2014 16:56:43
%S 1,4,52,1776,95184,8098880,965358656,155373092608,32381834795264,
%T 8483377324590080,2729934728621511680,1058257916995852103680,
%U 486461302251310562234368,261629260950851535726460928,162758580940261631762847645696
%N Expansion of e.g.f. tan(sin(x)*cosh(x)), odd powers only.
%H Vincenzo Librandi, <a href="/A009671/b009671.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[x]*Cosh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jul 05 2013 *)
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and signs tested by _Olivier GĂ©rard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Jul 05 2013
%E Clarified definition by _Joerg Arndt_, Feb 09 2014
%E a(14) from _Vincenzo Librandi_, Feb 09 2014
|