A215516 n-th derivative of cos(x)^sin(x) at x=0.

1, 0, 0, -3, 0, 0, 90, -63, 0, -8880, 22680, -49203, 2118600, -12383280, 60540480, -1131841623, 10857974400, -87893114400, 1246674306240, -15590737021923, 175749917616000, -2471071936993440, 35757593223327360, -502589340005210703, 7719667979121014400

Offset

0,4

Links

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

Maple

f:= x-> cos(x)^sin(x):
b:= proc(n) b(n):= `if`(n=0, f, D(b(n-1))) end:
a:= n-> b(n)(0):
seq (a(n), n=0..20);  # Alois P. Heinz, Aug 14 2012

Mathematica

f[x_] := Cos[x]^Sin[x]; Table[Derivative[n][f][0], {n, 25}]

Crossrefs

Cf. A160537.

Sequence in context: A215519 A215679 A160537 * A009133 A180515 A009138

Adjacent sequences: A215513 A215514 A215515 * A215517 A215518 A215519

Keyword

sign

Author

Michel Lagneau, Aug 14 2012

Status

approved