A024261 - OEIS

A024261

Expansion of log(1+tan(x)*sin(x))/2.

0, 1, -4, 91, -3004, 204061, -19378954, 2719355731, -504005966104, 122050103412601, -37013909750634454, 13810412109218174671, -6202801292273010744004, 3304722240330810208121941

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

MATHEMATICA

With[{nn=30}, Take[CoefficientList[Series[Log[1+Tan[x]*Sin[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 28 2019 *)

CROSSREFS

Cf. A009377.

Sequence in context: A374158 A195559 A195551 * A337827 A129434 A248041

Adjacent sequences: A024258 A024259 A024260 * A024262 A024263 A024264

KEYWORD

sign

AUTHOR

R. H. Hardin

EXTENSIONS

Extended with signs, Mar 1997

Prior Mathematica program replaced by Harvey P. Dale, Aug 28 2019

STATUS

approved