login
A009361
Expansion of e.g.f.: log(1+sinh(x)/cos(x)).
0
0, 1, -1, 6, -22, 140, -976, 8456, -83952, 957840, -12249856, 174293856, -2725714432, 46514037440, -859767771136, 17115342333056, -365039421683712, 8304761365213440, -200743169243938816, 5137820023434733056, -138802582805546401792, 3947233200665413667840
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Log[1+Sinh[x]/Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 19 2018 *)
CROSSREFS
Sequence in context: A009358 A213130 A002137 * A193445 A075759 A000993
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Apr 19 2018
STATUS
approved