A009460 Expansion of e.g.f.: sin(log(1+x))/cosh(x).

0, 1, -1, -2, 6, 5, 15, -772, 5348, -28579, 304875, -4039686, 44824626, -502746231, 6786025155, -100850039760, 1517589587400, -23931346331175, 408793231839735, -7414418761808394, 140090661066968990, -2772125867840390355

Offset

0,4

Links

Table of n, a(n) for n=0..21.

Mathematica

CoefficientList[Series[Sech[x]*Sin[Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 24 2015 *)
With[{nn=30}, CoefficientList[Series[Sin[Log[1+x]]/Cosh[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 26 2019 *)

Crossrefs

Sequence in context: A092313 A318358 A230383 * A085205 A094595 A182830

Adjacent sequences: A009457 A009458 A009459 * A009461 A009462 A009463

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 26 2019

Status

approved