登录
A035517
由整数的Zeckendorf展开形成的行读取的三角形数组:反复减去最大的斐波那契数,直到没有剩余。第n行给出了n的Z展开式。
35
0, 1, 2, 3, 1, 3, 5, 1, 5, 2, 5, 8, 1, 8, 2, 8, 3, 8, 1, 3, 8, 13, 1, 13, 2, 13, 3, 13, 1, 3, 13, 5, 13, 1, 5, 13, 2, 5, 13, 21, 1, 21, 2, 21, 3, 21, 1, 3, 21, 5, 21, 1, 5, 21, 2, 5, 21, 8, 21, 1, 8, 21, 2, 8, 21, 3, 8, 21, 1, 3, 8, 21, 34, 1, 34, 2, 34, 3, 34, 1, 3, 34, 5, 34, 1, 5, 34, 2, 5, 34
抵消
0,3
评论
第n行有A007895号(n) 条款。
在第二个Maple程序中,B(n)生成n的Zeckendorf展开式中的项数,而Z(n)则生成展开式本身。例如,B(100)=3,Z(100)=3,8,89。 [Emeric Deutsch公司2010年7月5日]
参考文献
Zeckendorf,E.,《自然命名代表》,公牛。Soc.罗伊。科学。Liège 41179-1821972年。
链接
D.E.Knuth,斐波那契乘法,申请。数学。莱特。 1 (1988), 57-60.
N.J.A.斯隆,经典序列
例子
0=0; 1=1; 2=2; 3=3; 4=1+3; 5=5; 6=1+5; 7=2+5; 8=8; 9=1+8; 10=2+8; ...所以三角形开始
0;
1;
2;
三;
1, 3;
5;
1, 5;
2, 5;
8;
1, 8;
2, 8;
3, 8;
1, 3, 8;
MAPLE公司
with(combint):B:=proc(n)local A,ct,m,j:A:=proc(n)局部j,Z:对于j到B(n)do z[j]:=F(n-add(z[i],i=1..j-1))end do:seq(z[B(n)+1-k],k=1。.B(n))结束进程:对于n到25 do Z(n)结束do;
#Emeric Deutsch公司2010年7月5日
#生成三角形序列;枫叶计划结束
数学
f[n]:=(k=1;ff={};While[(fi=Fibonacci[k])<=n,AppendTo[ff,fi];k++];下降[ff,1]);ro[n_]:=如果[n==0,0,r=n;s={};fr=f[n];
当[r>0时,lf=Last[fr];如果[lf<=r,r=r-lf;PrependTo[s,lf]];fr=下降[fr,-1]];s];压扁[ro/@范围[0,42]](*Jean-François Alcover公司2011年7月23日*)
黄体脂酮素
(哈斯克尔)
a035517 n k=a035517_tabf!!不!!k个
a035517_row n=a035517 _ tabf!!n个
a035517_tabf=地图背面a035516_tabf
--莱因哈德·祖姆克勒2013年3月10日
(Python)
zeck,fib=[],[0,1]
从itertools导入计数,islice
def agen():#术语生成器
对于计数(0)中的r:
而fib[-1]<r:
fib.append(fib[-2]+fib[-1])
i=1
而fib[-i]>r:i+=1
bigfib=fib[-i]
zeck.append(([]如果r==bigfib,则返回zeck[r-bigfib])+[bigfib]])
三角形的zeck[r]行r的收益率
打印(列表(islice(agen(),90))#迈克尔·布拉尼基2022年4月4日
关键词
非n,容易的,标签,美好的,
作者
扩展
更多术语来自詹姆斯·塞勒斯1999年12月13日
状态
经核准的