|
数学
|
T[a_,b_,n_]:=块[{s={a,b},k},Do[k=2最后@s;而[k/s[[i-1]]>=s[[i-2]]/s[[i-2]],k--];附加到[s,k],{i,3,n}];s] ;T[16,32,23](*或*)
a={16,32};Do[AppendTo[a,天花板[a[n-1]^2/a[[n-2]]-1],{n,3,23}];一个(*迈克尔·德·维利格2016年2月15日*)
递归表[{a[1]==16,a[2]==32,a[n]==上限[a[n-1]^2/a[n-2]-1]},a,{n,40}](*文森佐·利班迪2016年2月17日*)
|