OFFSET
1,2
COMMENTS
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
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 26 2009
EXTENSIONS
More terms from R. J. Mathar, Apr 29 2009
STATUS
approved