表[k=楼层[Log[2,n+1]]; 产品[j个 = 2^(我 + 1); 我 = 斐波那契[j个 + 1] + 斐波那契[j个 - 1]; 如果[比特与[2^我, n个] == 0, b条 = 0, b条 = 1]; 我^b条, {我, 0, k个}], {n个, 0, 200}] (* _罗伯特 价格_, 二月 13 2017 *)
乘积[j=2^(i+1);
l=斐波那契[j+1]+斐波那奇[j-1];
如果[BitAnd[2^i,n]==0,b=0,b=1];
l^b,{i,0,k}],
{n,0,200}](*罗伯特·普莱斯2017年2月13日*)