OFFSET
0,2
FORMULA
G.f.: A(x,y) = H(x)*(1-x)/(1-2*x), where H(x) satisfies: H(x) = H(x^2/(1-x))/(1-x) and H(x) is the g.f. of A092684. - Paul D. Hanna, Jul 17 2006
PROG
(PARI) {T(n, k)=if(n<0 || k>n, 0, if(n==0 && k==0, 1, if(n==1 && k<=1, 1, if(k==n, T(n, 0), T(n-1, k)+T(n-1, k+1)))))}
a(n)=sum(k=0, n, T(n, k))
(PARI) {a(n)=local(A, F=1+x, d=1, G=x, H=1+x, S=ceil(log(n+1)/log(d+1))); for(i=0, n, G=x*subst(F, x, G+x*O(x^n))); for(i=0, S, H=subst(H, x, x*G^d+x*O(x^n))*G/x); A=(x*H-y*subst(H, x, x*y^d +x*O(x^n)))/(x*subst(F, x, y)-y); sum(k=0, 2*n, polcoeff(polcoeff(A, n, x), k, y))} \\ Paul D. Hanna, Jul 17 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Mar 04 2004
STATUS
approved