|
|
A136310
|
|
a(n)=a(n-1)*(2^K)+ n*(n+1)/2 ; a(0)=1; K=floor(log_2 n*(n+1)/2).
|
|
1
|
|
|
1, 2, 7, 34, 282, 2271, 36357, 581740, 18615716, 595702957, 19062494679, 1219999659522, 78079978209486, 4997118605407195, 319815590746060585, 20468197807747877560, 2619929319391728327816, 335350952882141225960601, 42924921968914076922957099
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
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:
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|