login
sin(sinh(x)*tan(x))=2/2!*x^2+12/4!*x^4+22/6!*x^6-6888/8!*x^8...
2

%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