|
|
A364374
|
|
G.f. satisfies A(x) = (1 + x*A(x)) * (1 - x*A(x)^2).
|
|
5
|
|
|
1, 0, -1, 1, 2, -6, -1, 28, -31, -98, 288, 131, -1730, 1638, 7431, -19583, -15502, 135642, -99523, -664050, 1535896, 1816196, -11902728, 5944326, 64487669, -129346490, -213116764, 1112382523, -277762230, -6572175490, 11287106695, 25078981772, -107983368519, -1826241850
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} (-1)^k * binomial(n+k+1,k) * binomial(n+k+1,n-k) / (n+k+1).
D-finite with recurrence 15*n*(n+1)*a(n) +2*n*(13*n-11)*a(n-1) +12*(9*n^2-19*n+9)*a(n-2) +2*(10*n^2-65*n+99)*a(n-3) -4*(n-3)*(2*n-7)*a(n-4)=0. - R. J. Mathar, Jul 25 2023
|
|
MAPLE
|
add( (-1)^k*binomial(n+k+1, k) * binomial(n+k+1, n-k)/(n+k+1), k=0..n) ;
end proc:
|
|
MATHEMATICA
|
nmax = 33;
A[_] = 1;
Do[A[x_] = (1+x*A[x])*(1-x*A[x]^2) + O[x]^(nmax+1) // Normal, {nmax}];
|
|
PROG
|
(PARI) a(n) = sum(k=0, n, (-1)^k*binomial(n+k+1, k)*binomial(n+k+1, n-k)/(n+k+1));
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|