login
A009460
Expansion of e.g.f.: sin(log(1+x))/cosh(x).
0
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
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
KEYWORD
sign,easy
AUTHOR
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