A009482 E.g.f. sin(sin(x)*cosh(x)) (odd powers only).

1, 1, -23, -135, 4785, 102353, -4499623, -167774711, 9259741409, 697193437985, -45391655836087, -4778091975791591, 356972130348630673, 60384518907092417009, -5135539171238913723207

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[Sin[x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Aug 05 2014 *)

Crossrefs

Sequence in context: A141963 A157907 A039613 * A191745 A260842 A093806

Adjacent sequences: A009479 A009480 A009481 * A009483 A009484 A009485

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced by Harvey P. Dale, Aug 05 2014

Status

approved