OFFSET
0,2
COMMENTS
FORMULA
MATHEMATICA
CoefficientList[Series[(1 + 2*x)*(2*(1 + x^2)/(1 - x^2) + x^2/(1 - 4*x^2)^(1/2))/(2 + x^2), {x, 0, 50}], x] (* Wesley Ivan Hurt, Feb 21 2017 *)
PROG
(PARI) a(n)=local(x=X+X*O(X^n)); polcoeff((1+2*x)*(2*(1+x^2)/(1-x^2)+x^2/(1-4*x^2)^(1/2))/(2+x^2), n, X)
(PARI) /* a(n) as the unsigned row sums of A114700 */ a(n)=sum(k=0, n, abs(polcoeff(polcoeff(1/(1-x*y)+ x*(1+x-2*x^2*y)/(1-x)/(1+x+x*y+x*O(x^n)+y*O(y^k))/(1-x*y), n, x), k, y)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 19 2006
STATUS
approved