editing
approved
editing
approved
With[{nn=40}, Flatten[{0, Take[Drop[CoefficientList[Series[ArcSinh[Sin[x]-Sinh[x]], {x, 0, nn}], x]Range[0, nn-1]!, 2], {2, -1, 2}]}]] (* Harvey P. Dale, Oct 19 2011 *)
Vaclav Kotesovec, <a href="/A013374/b013374.txt">Table of n, a(n) for n = 0..238</a>
0, -2, 0, -2, 2240, -2, 137280, -403603202, 10325120, -223480857602, 1042911543845760, -119078050291202, 2638564062897339200, -16807721436490038912002, 5561493227350293205440
0,12
Prepended missing a(0)=0 from Vaclav Kotesovec, Feb 04 2015
approved
editing
With[{nn=40}, Take[Drop[CoefficientList[Series[ArcSinh[Sin[x]-Sinh[x]], {x, 0, nn}], x]Range[0, nn-1]!, 2], {2, -1, 2}]] (* From _Harvey P. Dale, _, Oct 19 2011 *)
Patrick Demichel (dmlpatrick.demichel(AT)hpfrcu03.france.hp.com)
editing
approved
With[{nn=40}, Take[Drop[CoefficientList[Series[ArcSinh[Sin[x]-Sinh[x]], {x, 0, nn}], x]Range[0, nn-1]!, 2], {2, -1, 2}]] (* From Harvey P. Dale, Oct 19 2011 *)
approved
editing
sign,done,new
sign
Patrick Demichel (dml@(AT)hpfrcu03.france.hp.com)
sign,done,new