|
| |
|
|
A009484
|
|
Expansion of sin(sin(x)*x).
|
|
1
| |
|
|
0, 2, -4, -114, 3352, -35270, -2244012, 198654470, -8021832016, -150983244558, 67525484385580, -7526828271926018, 368068475511786696, 48206694242241834026, -16586068178557581107068, 2563355081796258270543990, -153878422314204916436611232
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
FORMULA
| a(n) = sum(k=0..n, binomial(2*n,2*k+1)*(4^(-k)*sum(i=0..k, (2*i-2*k-1)^(2*n-2*k-1)*binomial(2*k+1,i)*(-1)^(n-i+k)))). [From Vladimir Kruchinin, Jun 28 2011]
|
|
|
MATHEMATICA
| Sin[ Sin[ x ]*x ] (* Even Part *)
|
|
|
PROG
| (Maxima)
a(n):=sum(binomial(2*n, 2*k+1)*(4^(-k)*sum((2*i-2*k-1)^(2*n-2*k-1)*binomial(2*k+1, i)*(-1)^(n-i+k), i, 0, k)), k, 0, n); [From Vladimir Kruchinin, Jun 28 2011]
|
|
|
CROSSREFS
| Sequence in context: A018455 A018463 A132497 * A006314 A009595 A018493
Adjacent sequences: A009481 A009482 A009483 * A009485 A009486 A009487
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| R. H. Hardin (rhhardin(AT)att.net)
|
|
|
EXTENSIONS
| Extended with signs Mar 15 1997 by Olivier Gerard.
|
| |
|
|
