a[0]=2;a[1]=4;b[0]=1;b[1]=3;b[2]=5;
a[n]:=a[n]=a[n-1]+a[n-2]+b[n];
j=1;当[j<12时,k=a[j]-j-1;
而[k<a[j+1]-j+1,b[k]=j+k+2;k++];j++];
z=2000;g=黄金比率;h=表格[N[a[N]/g^N,z],{N,0,z}];
StringJoin[StringTake[ToString[h[[z]]],41],“…”]
取[RealDigits[Last[h],10][[1],120](*A296472型*)
|