|
Search: id:A109576
|
|
|
| A109576 |
|
E.g.f.: x/(1+3x-4x^3)=x/[1-T(3,x)], where T(3,x) is a Chebyshev polynomial. |
|
+0
1
|
|
| 0, 1, -6, 54, -552, 6840, -97200, 1577520, -28667520, 578067840, -12798777600, 308836281600, -8065907942400, 226719600307200, -6824229456844800, 219010610827008000, -7465397891567616000, 269363867734241280000, -10256545055212904448000
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
"Bernoulli numbers" for x/[1-T(3,x)].
|
|
MAPLE
|
G:=x/(1+3*x-4*x^3): Gser:=series(G, x=0, 23): 0, seq(n!*coeff(Gser, x^n), n=1..20); # yields the signed sequence
|
|
MATHEMATICA
|
g[x_] = x/(-1 + ChebyshevT[3, x]) h[x_, n_] = Dt[g[x], {x, n}] a[x_] = Table[h[x, n], {n, 0, 50}]; b = a[0]
|
|
CROSSREFS
|
Sequence in context: A092810 A092472 A098658 this_sequence A069726 A081132 A158831
Adjacent sequences: A109573 A109574 A109575 this_sequence A109577 A109578 A109579
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 28 2005
|
|
|
Search completed in 0.002 seconds
|
