|
| |
|
|
A012125
|
|
G.f.: x/((1-4*x+16*x^2)^(3/2)).
|
|
1
| |
|
|
0, 1, 6, 6, -100, -570, -588, 8092, 45432, 47430, -607420, -3385932, -3557112, 43868188, 243513480, 256815480, -3094459408, -17130508218, -18113603868, 214848211780, 1187079671400, 1257576694836, -14747640408424, -81367084566264, -86322262278000, 1003635505135900
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| a(n)= (2(2n-1)/(n-1))a(n-1) - (16n/(n-1))a(n-2), starting with a(0) = 0 and a(1) = 1. - C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 15 2004
|
|
|
MAPLE
| A012125:=proc(n) options remember: if n<2 then RETURN([0, 1][n+1]) else RETURN((2*(2*n-1)/(n-1))*A012125(n-1)-(16*n/(n-1))*A012125(n-2)) fi: end; seq(A012125(n), n=0..25); seq(coeff(convert(series(x/((1-4*x+16*x^2)^(3/2)), x, 40), polynom), x, i), i=0..25); (C. Ronaldo)
|
|
|
MATHEMATICA
| Table[ -((2^(-1 + 2*n)*LegendreP[ n, 1, 1/2 ])/Sqrt[ 3 ]), {n, 0, 12} ]
|
|
|
CROSSREFS
| Sequence in context: A065239 A146892 A085804 * A170915 A123190 A165641
Adjacent sequences: A012122 A012123 A012124 * A012126 A012127 A012128
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| w.meeussen (wouter.meeussen(AT)pandora.be)
|
|
|
EXTENSIONS
| Simpler definition and more terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 15 2004
|
| |
|
|
