|
%I #16 Feb 08 2014 14:08:24
%S 1,4,-8,-1752,-117312,-7882624,-537535360,-27307332608,2518262718464,
%T 1691557864632320,611413449329426432,205087300464349216768,
%U 69390989848092392194048,23951002005666040825905152
%N Expansion of sin(tan(x)*cosh(x)).
%H Vincenzo Librandi, <a href="/A009511/b009511.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Sin[Tan[x]Cosh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Dec 22 2013 *)
%K sign
%O 0,2
%A _R. H. Hardin_, Mar 15 1996
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Dec 22 2013
|
