%I #18 Apr 02 2017 21:02:06
%S 0,2,12,22,-6888,-664918,-59975388,-5718140738,-547324724688,
%T -38493249163438,4551120221502012,4118717773789761382,
%U 1943760618993686019912,842266610124834993878522,367005752387547761811702612,164337720240421801745499143182
%N sin(sinh(x)*tan(x))=2/2!*x^2+12/4!*x^4+22/6!*x^6-6888/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Sin[Tan[x]Sinh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Oct 04 2014 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E More terms from and prior Mathematica program replaced by _Harvey P. Dale_, Oct 04 2014