A024295 Expansion of log(1+tanh(x)*x)/2.

0, 1, -10, 288, -16656, 1629440, -242569728, 51150403584, -14514466195456, 5334038568566784, -2464645606175539200, 1398530065161670098944, -956068708752272063987712, 775009022325905883458961408, -735038625130292891682693185536

Offset: 0

Author

R. H. Hardin

Keywords

• sign

Crossrefs

Cf. A009399.

Programs

Mathematica

With[{nn=30},Take[CoefficientList[Series[Log[1+Tanh[x]*x]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* Harvey P. Dale, Mar 04 2013 *)

Extensions

Extended with signs Mar 1997