A009466 Expansion of sin(log(1+x)/cosh(x)).

0, 1, -1, -2, 6, 25, -165, -366, 6188, 5573, -294885, -813034, 35950266, -141917555, -1041102153, -22047494262, 843256939320, -9500491668343, 83224830490839, -2409782172431474, 68273680978437710, -1275838005728358495

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[Log[1+x]/Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 10 2011 *)

Crossrefs

Sequence in context: A292748 A178087 A109286 * A372892 A348067 A032479

Adjacent sequences: A009463 A009464 A009465 * A009467 A009468 A009469

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved