A009552 Expansion of e.g.f. sin(x)/cos(log(1+x)).

0, 1, 0, 2, -12, 71, -540, 4780, -48328, 549601, -6944040, 96496894, -1462695300, 24016678583, -424638675188, 8043741624464, -162517240830480, 3488577094105985, -79287238580689872, 1902063885622909594

Offset

0,4

Links

G. C. Greubel, Table of n, a(n) for n = 0..432

Formula

a(n) ~ n! * (-1)^(n+1) * sin(1-exp(-Pi/2)) / ((exp(Pi/2)-1) * (1-exp(-Pi/2))^n). - Vaclav Kotesovec, Jan 23 2015

Mathematica

Sin[ x ]/Cos[ Log[ 1+x ] ]
CoefficientList[Series[Sec[Log[1 + x]]*Sin[x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Prog

(PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sin(x)/cos(log(x+1))))) \\ G. C. Greubel, Jan 21 2018

Crossrefs

Sequence in context: A223763 A361960 A002630 * A002670 A119921 A322276

Adjacent sequences: A009549 A009550 A009551 * A009553 A009554 A009555

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved