login
A009552
Expansion of e.g.f. sin(x)/cos(log(1+x)).
1
0, 1, 0, 2, -12, 71, -540, 4780, -48328, 549601, -6944040, 96496894, -1462695300, 24016678583, -424638675188, 8043741624464, -162517240830480, 3488577094105985, -79287238580689872, 1902063885622909594
OFFSET
0,4
LINKS
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
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved