OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..1492
FORMULA
a(n) = [x^n] 1/(1 - x - x^3)^(n+1).
a(n) = (n+1) * A049140(n+1).
a(n) = Sum_{k=0..floor(n/3)} binomial(n+k,k) * binomial(2*n-2*k,n-3*k).
MAPLE
f:= proc(x, y) option remember;
local t;
t:= 0;
if x >= 1 then t:= t + procname(x-1, y) fi;
if x >= 3 then t:= t + procname(x-3, y) fi;
if y >= 1 then t:= t + procname(x, y-1) fi;
t
end proc:
f(0, 0):= 1:
seq(f(n, n), n=0..25); # Robert Israel, May 28 2025
PROG
(PARI) a(n) = sum(k=0, n\3, binomial(n+k, k)*binomial(2*n-2*k, n-3*k));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Apr 28 2025
STATUS
approved
