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,2

Comments

A159926(m) - A159926(m-1) = A159925(m), for m >= 2. A159925 contains the row-sums of triangle A159924.

Links

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

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 *)

Crossrefs

Cf. A159924, A159925.

Sequence in context: A196192 A367261 A364474 * A020051 A020006 A207653

Adjacent sequences: A159923 A159924 A159925 * A159927 A159928 A159929

Keyword

nonn

Author

Leroy Quet, Apr 26 2009

Extensions

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

Status

approved