|
|
A189420
|
|
Expansion of e.g.f. exp(sin(x)+sin(x)^2).
|
|
0
|
|
|
1, 1, 3, 6, 13, 12, -121, -896, -4391, -10160, 64491, 900768, 6118693, 16033344, -198382609, -3101259776, -22263439439, -23508393728, 1747001723475, 24367272291840, 145393520219965
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = sum(m=1..n, sum(k=m..n, (binomial(m,k-m)*((-1)^(n-k)+1)*sum(i=0..k/2, (2*i-k)^n*binomial(k,i)*(-1)^((n+k)/2-i)))/2^k)/m!).
|
|
MATHEMATICA
|
With[{nn=20}, CoefficientList[Series[Exp[Sin[x]+Sin[x]^2], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 01 2017 *)
|
|
PROG
|
(Maxima)
a(n):=sum(sum((binomial(m, k-m)*((-1)^(n-k)+1)*sum((2*i-k)^n*binomial(k, i)*(-1)^((n+k)/2-i), i, 0, k/2))/2^k, k, m, n)/m!, m, 1, n);
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|