A151614 Row sums of A156740.

1, 2, 155, 9692, 2511973, 718800326, 444293699995, 322762198901872, 375936459278442977, 517934214393739253282, 977731835276897269439162, 2156693302479983573313980822, 5955566258836615476254796252771, 18881697488276229387856391071794848

Offset: 0

Author

N. J. A. Sloane, May 28 2009

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..225

Crossrefs

Cf. A156740.

Programs

Mathematica

A156740[n_, k_]:= Round[Product[Binomial[2*(n+j), 2*(k+j)]/Binomial[2*(n-k+j), 2*j], {j, 0, 7}]];
A151614[n_]:= A151614[n]= Sum[A156740[n,k], {k,0,n}];
Table[A151614[n], {n,0,30}] (* G. C. Greubel, Jun 19 2021 *)

Sage

def A156740(n, k): return round( product( binomial(2*(n+j), 2*(k+j))/binomial(2*(n-k+j), 2*j) for j in (0..7)) )
def A151614(n): return sum( A156740(n, k) for k in (0..n) )
[A151614(n) for n in (0..30)] # G. C. Greubel, Jun 19 2021

Formula

a(n) = Sum_{k=0..n} A156740(n, k).

Extensions

Terms a(11) onward added by G. C. Greubel, Jun 19 2021