OFFSET
0,2
MAPLE
A136310 := proc(n)
option remember;
if n = 0 then
1;
else
k := floor(log[2](n*(n+1)/2)) ;
procname(n-1)*2^k + n*(n+1)/2 ;
end if;
end proc:
seq(A136310(n), n=0..10) ; # R. J. Mathar, Jun 19 2021
MATHEMATICA
nxt[{n_, a_}]:=Module[{c=((n+1)(n+2))/2}, {n+1, a*2^Floor[Log[2, c]]+c}]; NestList[nxt, {0, 1}, 20][[All, 2]] (* Harvey P. Dale, May 13 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Mar 22 2008
EXTENSIONS
More terms from Harvey P. Dale, May 13 2018
Offset corrected. - R. J. Mathar, Jun 19 2021
STATUS
approved