%I#32 2018年10月25日20:36:26
%S 1,1,1,2,2,1,3,5,3,1,4,10,22,5,1,5,17,93181,8,1,6,2627625215814,
%电话:13,1,7,37655176816126961488565,21,1,8,5013388190118105620,
%电话:401990097712194330294,34,1,9,65245728904525959412801186569930001640902058596626725573364166211253,55
%N方阵A(N,k),N>=1,k>=1,由反对角线读取:A(N,k)=以k为基数编码的斐波那契兔子序列号N。
%H Alois P.Heinz,<a href=“/A144287/b144287.txt”>反对角线n=1..16,扁平</a>
%H H.W.Gould、J.B.Kim和V.E.Hoggatt,Jr.,<a href=“http://www.fq.math.ca/Scanned/15-4/gould.pdf“>与斐波那契兔子t元编码相关的序列</a>,Fib.Quart.,15(1977),311-318。
%F参见程序。
%e方阵开始:
%e 1,1,1,1。。。
%e 1、2、3、4、5。。。
%e 2、5、10、17、26。。。
%e 3、22、93、276、655。。。
%e 518125211768181901。。。
%pf:=proc(n,b)选项记忆`如果`(n<2,[n,n],[f(n-1,b)[1]*
%p b^f(n-1,b)[2]+f(n-2,b)[1],f(n-1,b)[2]+f(n-2,b)[2])
%p端:
%p A:=(n,k)->f(n,k)[1]:
%p序列(序列(A(n,1+d-n),n=1..d),d=1..11);
%tf[n,b]:=f[n,b]=如果[n<2,{n,n},{f[n-1,b][1]]*b^f[n-l,b][2]]+f[n-2,b][[1]],f[n-1,b][2]+f[n-2,b][2];t[n,k]:=f[n,k][[1];扁平[表[t[n,1+d-n],{d,1,11},{n,1,d}]](*_Jean-François Alcover_,翻译自Maple,2011年12月9日*)
%Y列k=1-10给出:A000045、A005203、A005205、A320986、A320978、A32098、A320990、A320996、A061107和A036299。
%Y行n=1-3给出:A000012、A001477、A002522。
%Y主对角线表示A144288。
%K基数,不错,不,tabl
%O 1,5型
%A _Alois P.Heinz,2008年9月17日
|