OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..1000
FORMULA
If g.f. satisfies: A(x) = 1/(1 - x/(1 - x*A(x))^s)^t, then a(n) = Sum_{k=0..n} binomial(t*n-(t-1)*(k-1),k) * binomial(n+(s-1)*k-1,n-k)/(n-k+1).
MAPLE
A349021 := proc(n)
local s, t ;
s := 2 ;
t := 4;
add( binomial(t*n-(t-1)*(k-1), k) * binomial(n+(s-1)*k-1, n-k) /(n-k+1) , k=0..n) ;
end proc:
seq(A349021(n), n=0..40) ; # R. J. Mathar, May 12 2022
PROG
(PARI) a(n, s=2, t=4) = sum(k=0, n, binomial(t*n-(t-1)*(k-1), k)*binomial(n+(s-1)*k-1, n-k)/(n-k+1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 06 2021
STATUS
approved