A159925 Row sums of triangle A159924.

1, 3, 12, 61, 370, 2606, 20925, 188772, 1890773, 20822481, 250082522, 3253176309, 45567394330, 683783923476, 10944068960451, 186098265906832, 3350501663825617, 63671208559149815, 1273621946395366224

Offset: 1

Author

Leroy Quet, Apr 26 2009

Keywords

• nonn

Comments

The sum of all terms in rows 1 through m of triangle A159924 is A159926(m). A159926(m) - A159926(m-1) = A159925(m), for m >= 2.

Links

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

Crossrefs

Cf. A159924, A159926.

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: seq(A159925(n),n=1..40) ; # R. J. Mathar, Apr 29 2009

Mathematica

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

Extensions

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