s[n]:=s[n]=2^n;z1=1000;z2=50;
u[m_]:=u[m]=扁平[表[s[k]-s[j],{k,2,z1},{j,1,k-1}][[m]]
v[n_,h]:=v[n,h]=如果[IntegerQ[u[h]/n],h,0]
w[n_]:=w[n]=表格[v[n,h],{h,1,z1}]
d[n_]:=d[n]=第一个[删除[w[n],位置[w[n],0]]
k[n_]:=k[n]=楼层[(3+平方[8 d[n]-1])/2]
m[n_]:=m[n]=楼层[(-1+平方[8 n-7])/2]
j[n]:=j[n]=d[n]-m[d[n]](m[d[n]+1)/2
表[(s[k[n]]-s[j[n]])/n,{n,1,z2}](*A204992型*)
|