A327002 a(n) = A018893(n) - A291973(n).

0, 0, 0, 10, 2574, 748616, 282846568, 141482705378, 93129791442534, 79703248816409088, 87547852413089111888, 121899005847224540133690, 212656111085108159911203710, 459737640779469178164281972792, 1218867518038879445116138285206008, 3923403293626677106527196012373423122

Offset

0,4

Links

Table of n, a(n) for n=0..15.

Maple

CL := (f, x) -> PolynomialTools:-CoefficientList(f, x):
A327002 := proc(n) local P, Q;
P := proc(n) option remember; if n = 0 then return 1 fi;
add(binomial(3*n, 3*k+3)*P(n-k-1)*x, k=0..n-1) end:
Q := proc(n) option remember; if n = 0 then return 1 fi;
add(binomial(3*n-1, 3*k)*Q(k)*Q(n-1-k), k=0..n-1) end:
Q(n) - add(CL(P(n), x)[k+1]/k!, k=0..n) end:
seq(A327002(n), n=0..15);

Crossrefs

Cf. A018893, A291973, row 3 of A327000.

Sequence in context: A359148 A249675 A047945 * A246116 A132675 A227223

Adjacent sequences: A326999 A327000 A327001 * A327003 A327004 A327005

Keyword

nonn

Author

Peter Luschny, Aug 13 2019

Status

approved