|
| |
|
|
A144133
|
|
Gegenbauer polynomial C_n^2(3).
|
|
0
|
|
|
|
1, 12, 106, 828, 6051, 42408, 288788, 1925736, 12637733, 81897876, 525360702, 3341936196, 21109664455, 132544828560, 827948567080, 5148653356944, 31891223012553, 196848686563164, 1211273655997202, 7432579805359884
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Table of n, a(n) for n=0..19.
Wikipedia, Gegenbauer polynomials
|
|
|
FORMULA
|
G.f.: 1 / (1 - 6*x + x^2)^2. a(-4 - n) = -a(n). Convolution square of A001109. - Michael Somos, May 11 2012
|
|
|
EXAMPLE
|
1 + 12*x + 106*x^2 + 828*x^3 + 6051*x^4 + 42408*x^5 + ...
|
|
|
MATHEMATICA
|
lst={}; Do[AppendTo[lst, GegenbauerC[n, 2, 3]], {n, 0, 8^3}]; lst
|
|
|
PROG
|
{a(n) = local(s=1); if( n<0, n = -4 - n; s=-1); s * polcoeff( 1 / (1 - 6*x + x^2)^2 + x * O(x^n), n)} /* Michael Somos, May 11 2012 */
|
|
|
CROSSREFS
|
Cf. A001109.
Sequence in context: A016223 A027142 A090816 * A089396 A218111 A166755
Adjacent sequences: A144130 A144131 A144132 * A144134 A144135 A144136
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Sep 11 2008
|
|
|
STATUS
|
approved
|
| |
|
|