A009406 Expansion of e.g.f.: log(1+x)*cos(sin(x)).

0, 1, -1, -1, 0, 29, -105, 307, -2744, 27417, -236025, 2249895, -25156296, 306281013, -3983598801, 55800877467, -839348702160, 13462454942385, -229273833323025, 4133677629311823, -78661216493101680, 1575432052386178509

Offset

0,6

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * cos(sin(1)). - Vaclav Kotesovec, Jan 23 2015

Mathematica

With[{nn=30}, CoefficientList[Series[Log[1+x]*Cos[Sin[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Sep 19 2014 *)

Crossrefs

Sequence in context: A009435 A126554 A258721 * A211496 A233049 A233050

Adjacent sequences: A009403 A009404 A009405 * A009407 A009408 A009409

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Sep 19 2014

Status

approved