A055853 Convolution of A055852 with A011782.

0, 1, 8, 43, 190, 743, 2668, 8989, 28814, 88720, 264224, 765088, 2162624, 5986304, 16268800, 43499264, 114629120, 298147840, 766361600, 1948794880, 4907171840, 12245598208, 30305419264, 74425892864, 181481635840, 439603953664

Offset

0,3

Comments

Eighth column of triangle A055587.

T(n,6) of array T as in A049600.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (14,-84,280,-560,672,-448,128).

Formula

a(n) = T(n, 6)= A055587(n+6, 7).

G.f.: x*(1-x)^6/(1-2*x)^7.

Maple

seq(coeff(series(x*(1-x)^6/(1-2*x)^7, x, n+1), x, n), n = 0..30); # G. C. Greubel, Jan 16 2020

Mathematica

CoefficientList[Series[x*(1-x)^6/(1-2*x)^7, {x, 0, 30}], x] (* G. C. Greubel, Jan 16 2020 *)

Prog

(PARI) my(x='x+O('x^30)); concat([0], Vec(x*(1-x)^6/(1-2*x)^7)) \\ G. C. Greubel, Jan 16 2020
(Magma) R<x>:=PowerSeriesRing(Integers(), 30); [0] cat Coefficients(R!( x*(1-x)^6/(1-2*x)^7 )); // G. C. Greubel, Jan 16 2020
(Sage)
def A055853_list(prec):
    P.<x> = PowerSeriesRing(ZZ, prec)
    return P( x*(1-x)^6/(1-2*x)^7 ).list()
A055853_list(30) # G. C. Greubel, Jan 16 2020

Crossrefs

Cf. A011782, A049600, A055587, A055852.

Sequence in context: A036640 A036647 A000429 * A137748 A005024 A094865

Adjacent sequences: A055850 A055851 A055852 * A055854 A055855 A055856

Keyword

nonn,easy

Author

Wolfdieter Lang May 30 2000

Status

approved