|
|
A026675
|
|
a(n) = T(2n-1,n-2), T given by A026670. Also T(2n-1,n-2) = T(2n,n+2), T given by A026725 and T(2n,n-2), T given by A026736.
|
|
2
|
|
|
1, 6, 29, 131, 575, 2488, 10681, 45641, 194467, 827045, 3512983, 14909339, 63239487, 268127302, 1136495965, 4816202207, 20406887583, 86457399359, 366263778659, 1551535465465, 6572224024539, 27838835937511, 117918419518219
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^5/(4*x*(8*x^2 -(1-Sqrt[1 - 4*x])^3)), {x, 0, 30}], x], 2] (* G. C. Greubel, Jul 16 2019 *)
|
|
PROG
|
(PARI) my(x='x+O('x^30)); Vec( (1-sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-sqrt(1-4*x))^3))) \\ G. C. Greubel, Jul 16 2019
(Magma) R<x>:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( (1-Sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-Sqrt(1-4*x))^3)) )); // G. C. Greubel, Jul 16 2019
(Sage) a=((1-sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-sqrt(1-4*x))^3))).series(x, 30).coefficients(x, sparse=False); a[2:] # G. C. Greubel, Jul 16 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|