A024267 Expansion of sin(tan(x)*sinh(x))/2.

0, 1, 6, 11, -3444, -332459, -29987694, -2859070369, -273662362344, -19246624581719, 2275560110751006, 2059358886894880691, 971880309496843009956, 421133305062417496939261, 183502876193773880905851306

Offset

0,3

Links

Table of n, a(n) for n=0..14.

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[Tan[x]*Sinh[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jul 09 2017 *)

Crossrefs

Cf. A009514.

Sequence in context: A083834 A136978 A145746 * A028584 A243017 A084342

Adjacent sequences: A024264 A024265 A024266 * A024268 A024269 A024270

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Previous Mathematica program replaced by Harvey P. Dale, Jul 09 2017

Status

approved