login
A009726
Expansion of tan(x)*cos(log(1+x)).
0
0, 1, 0, -1, 12, -54, 360, -2094, 15568, -113516, 979200, -8587668, 84989520, -863430840, 9562970144, -108058865368, 1285366485120, -15130564865136, 174638241040896, -1701739763904144, 7392841627579840, 326394843481495456
OFFSET
0,5
MATHEMATICA
Tan[ x ]*Cos[ Log[ 1+x ] ]
CoefficientList[Series[Cos[Log[1 + x]]*Tan[x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 24 2015 *)
CROSSREFS
Sequence in context: A183713 A126399 A137938 * A230920 A190948 A275249
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved