|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|