A116466 Unsigned row sums of triangle A114700.
1, 2, 2, 4, 2, 4, 4, 8, 10, 20, 32, 64, 112, 224, 408, 816, 1514, 3028, 5680, 11360, 21472, 42944, 81644, 163288, 311896, 623792, 1196132, 2392264, 4602236, 9204472, 17757184, 35514368, 68680170, 137360340, 266200112, 532400224, 1033703056
Offset: 0
Keywords
Programs
-
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 *)
-
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)))
Comments