Ki[n_,i_]:=Ki[n,i]=模[{φ=(1+Sqrt[5])/2},如果[i==0,n,如果[i==1,楼层[(n+1)*phi],Ki[n、i-1]+Ki[n和i-2]]];
Kisum[n_,m_]:=模块[{ks,a,i},ks=表[Ki[n,i]+Ki[m,i],{i,0,5}];对于[i=0,i<=2,i++,对于[a=0,True,a++,如果[Ki[a,0]==ks[[i+1]]&&Ki[a、1]==ks[[i+2]],返回[a]];如果[Ki[a,0]>ks[[i+1]],则中断[]]]];
a[n_]:=如果[n==0,11,Kisum[n-1,11]];
|