OFFSET
0,2
PROG
(PARI) {T(n, k)=if(n<k, 0, if(n==k, k+1, polcoeff(k+1-sum(i=k, n-1, T(i, k)*x^i*prod(j=1, (i-k)\2+1, 1-(j+k)*x+x*O(x^n))), n)))} \ /* A102916 */ {a(n)=sum(k=0, n, T(n, k))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 21 2005
STATUS
approved