

A012528


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


2



2, 112, 10112, 17297408, 15034114048, 164133555208192, 55023491428646912, 16342277967934744690688, 148703244592249785068552192, 6917318875805359573600621821952, 349192103360082371369402852240785408, 3233378223427683795744541104589701644288
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


LINKS



MATHEMATICA

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


CROSSREFS



KEYWORD

sign


AUTHOR

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


EXTENSIONS

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


STATUS

approved



