%I#15 2020年12月12日14:17:38
%S 1,2,5,7,12,19,26,36,52,71,92124158204265331413522641791976,
%电话:1184143517412093250630053574423750305928697182029593,
%电话:11212130871521017653204722366527308314883620541570477015458462387
%N将N划分为奇数部分的二进制数字总数。
%H Alois P.Heinz,n的表格,n=1..10000的a(n)</a>
%ph:=proc(n)选项记忆;1+ilog2(n)端:
%p b:=proc(n,i)选项记忆`如果`(n=0,[1,0],
%p `if`(i<1,0,b(n,i-1-irem(i,2))+` if`(i::even
%p或i>n,0,(p->p+[0,p[1]*h(i)])(b(n-i,i)))
%p端:
%pa:=n->b(n$2)[2]:
%p序列(a(n),n=1..60);#_Alois P.Heinz,2018年9月27日
%t小时[n]:=小时[n]=1+地板@原木[2,n];
%tb[n_,i_]:=b[n,i]=如果[n==0,{1,0},如果[i<1,0,b[n、i-1-Mod[i,2]]+如果[EvenQ[i]|i>n,0,函数[p,p+{0,p[1]]h[i]}][b[n-i,i]]];
%ta[n]:=b[n,n][2]];
%t数组[a,60](*_Jean-François Alcover_,2020年12月12日,在_Alois P.Heinz_*之后)
%Y参考A000009、A070939。
%K nonn公司
%O 1,2号机组
%A _David S.Newman,2018年9月11日
|