%I #26 Sep 08 2024 08:25:09
%S 1,0,-1,1,2,-6,-1,28,-31,-98,288,131,-1730,1638,7431,-19583,-15502,
%T 135642,-99523,-664050,1535896,1816196,-11902728,5944326,64487669,
%U -129346490,-213116764,1112382523,-277762230,-6572175490,11287106695,25078981772,-107983368519,-1826241850
%N G.f. satisfies A(x) = (1 + x*A(x)) * (1 - x*A(x)^2).
%H Seiichi Manyama, <a href="/A364374/b364374.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = Sum_{k=0..n} (-1)^k * binomial(n+k+1,k) * binomial(n+k+1,n-k) / (n+k+1).
%F 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
%F A(x) = (1/x) * series_reversion(x*(1 + x + x^2)/(1 + x)). - _Peter Bala_, Sep 08 2024
%p A364374 := proc(n)
%p add( (-1)^k*binomial(n+k+1,k) * binomial(n+k+1,n-k)/(n+k+1),k=0..n) ;
%p end proc:
%p seq(A364374(n),n=0..80); # _R. J. Mathar_, Jul 25 2023
%t nmax = 33;
%t A[_] = 1;
%t Do[A[x_] = (1+x*A[x])*(1-x*A[x]^2) + O[x]^(nmax+1) // Normal, {nmax}];
%t CoefficientList[A[x], x] (* _Jean-François Alcover_, Oct 21 2023 *)
%o (PARI) a(n) = sum(k=0, n, (-1)^k*binomial(n+k+1, k)*binomial(n+k+1, n-k)/(n+k+1));
%Y Cf. A364375, A364376.
%Y Cf. A057078, A007863, A364371.
%K sign,easy
%O 0,5
%A _Seiichi Manyama_, Jul 21 2023