A159926 The sum of all terms in row 1 through m of triangle A159924.

1, 4, 16, 77, 447, 3053, 23978, 212750, 2103523, 22926004, 273008526, 3526184835, 49093579165, 732877502641, 11676946463092, 197775212369924, 3548276876195541, 67219485435345356, 1340841431830711580

Offset: 1

Author

Leroy Quet, Apr 26 2009

Keywords

• nonn

Comments

A159925 contains the row-sums of triangle A159924.

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..449

Crossrefs

Cf. A159924, A159925.

Programs

Maple

A159924 := proc(n,m) option remember ; local s; if n = m then 1; else s := add(add(procname(r,c),c=1..r),r=1..n-1) ; procname(n-1,m)+s ; fi; end: A159925 := proc(n) local m; add( A159924(n,m),m=1..n) ; end: A159926 := proc(n) add( A159925(k),k=1..n) ; end: seq(A159926(n),n=1..40) ; # R. J. Mathar, Apr 29 2009

Mathematica

Accumulate@ Map[Total, Block[{m = 0}, NestList[Block[{w = #}, AddTo[m, Total@ w]; Append[m + w, 1]] &, {1}, 18]]] (* Michael De Vlieger, Oct 30 2017 *)

Formula

a(m) - a(m-1) = A159925(m), for m >= 2.

Extensions

More terms from R. J. Mathar, Apr 29 2009