A012528 sinh(sinh(x)*sin(x))=2/2!*x^2+112/6!*x^6+10112/10!*x^10...

2, 112, 10112, -17297408, -15034114048, 164133555208192, 55023491428646912, -16342277967934744690688, 148703244592249785068552192, 6917318875805359573600621821952, -349192103360082371369402852240785408, -3233378223427683795744541104589701644288

Offset

0,1

Links

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

Mathematica

With[{nn=60}, Take[CoefficientList[Series[Sinh[Sinh[x]*Sin[x]], {x, 0, nn}], x] Range[0, nn-2]!, {3, -1, 4}]] (* Harvey P. Dale, Dec 15 2014 *)

Crossrefs

Sequence in context: A173214 A341782 A024341 * A024342 A225333 A012525

Adjacent sequences: A012525 A012526 A012527 * A012529 A012530 A012531

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

More terms from R. H. Hardin

Edited by N. J. A. Sloane, May 31 2008 at the suggestion of R. J. Mathar.

More terms from and prior Mathematica program replaced by Harvey P. Dale, Dec 15 2014

Status

approved