login
A009174
Expansion of e.g.f.: cosh(x)*cos(log(1+x)).
0
1, 0, 0, 3, -15, 70, -354, 1995, -12667, 89892, -705244, 6042575, -55837075, 548985138, -5650236630, 59493168735, -615581655639, 5683518687560, -30016869620472, -587400084741573, 31322604753002761, -1006072267431660450
OFFSET
0,4
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Cosh[x]*Cos[Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 09 2015 *)
CROSSREFS
Sequence in context: A033876 A291031 A359405 * A178345 A183547 A123942
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, May 09 2015
STATUS
approved