OFFSET
0,2
LINKS
FORMULA
a(n) = (1/(n+1)) * Sum_{k=0..floor(n/4)} (-1)^k * binomial(n+1,k) * binomial(2*n-2*k+2,n-4*k).
D-finite with recurrence: (-2160*n^3 - 12960*n^2 - 23760*n - 12960)*a(n) + (3408*n^3 + 27960*n^2 + 75048*n + 65520)*a(n + 1) + (-5828*n^3 - 56372*n^2 - 182492*n - 197484)*a(n + 2) + (4216*n^3 + 50628*n^2 + 203296*n + 273234)*a(n + 3) + (-1607*n^3 - 23944*n^2 - 119168*n - 198276)*a(n + 4) + (324*n^3 + 5724*n^2 + 33672*n + 65970)*a(n + 5) + (-27*n^3 - 540*n^2 - 3588*n - 7920)*a(n + 6) = 0. - Robert Israel, Mar 11 2026
MAPLE
f:= gfun:-rectoproc({(-2160*n^3 - 12960*n^2 - 23760*n - 12960)*a(n) + (3408*n^3 + 27960*n^2 + 75048*n + 65520)*a(n + 1) + (-5828*n^3 - 56372*n^2 - 182492*n - 197484)*a(n + 2) + (4216*n^3 + 50628*n^2 + 203296*n + 273234)*a(n + 3) + (-1607*n^3 - 23944*n^2 - 119168*n - 198276)*a(n + 4) + (324*n^3 + 5724*n^2 + 33672*n + 65970)*a(n + 5) + (-27*n^3 - 540*n^2 - 3588*n - 7920)*a(n + 6), a(0) = 1, a(1) = 2, a(2) = 5, a(3) = 14, a(4) = 41, a(5) = 122}, a(n), remember):
map(f, [$0..30]); # Robert Israel, Mar 11 2026
PROG
(PARI) my(N=30, x='x+O('x^N)); Vec(serreverse(x/((1+x)^2-x^4))/x)
(PARI) a(n) = sum(k=0, n\4, (-1)^k*binomial(n+1, k)*binomial(2*n-2*k+2, n-4*k))/(n+1);
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Mar 23 2024
STATUS
approved
