登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

γ

标志


提示
问候整数序列的在线百科全书!)
194685 三角数组:t(n,k)=[n*r>+k*r> ],其中[]=Load,<>=α分数部分,r=(1+SqRT(3))/2。
0, 1, 1、0, 0, 0、0, 1, 0、0, 1, 1、0, 1, 1、0, 0, 0、0, 1, 0、0, 1, 0、1, 1, 0、1, 1, 1、1, 1, 1、1, 1, 1、1, 1, 1、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

评论

n次行和给出了[0,1]中的k个数,其中<n*r>+k*r>>1;A19466.

链接

n,a(n)n=1…99的表。

例子

前十二行:

1 1

0 0 0

0 1 0 0

1 1 0 0 1 1

0 0 0 0 0 1 0

0 1 0 0 1 1 0 1

1 1 1 1 1 1 1 1 1

0 1 0 0 0 1 0 0 1 0

1 1 0 0 1 1 0 1 1 0 1

0 0 0 0 0 0 0 0 0 0 0 0

0 1 0 0 1 0 0 0 1 0 1 0 0

Mathematica

r=1/2+SqRT〔3〕/2;Z=15;

P[Xi]:=分数部分[X];F[x]:= Load [X];

W[n],k]:= p[r^ n] +p[r^ k] -p[r^ n+r^ k]

[表[W[n,k],{n,1,z },{k,1,n}] ]

*(*)1946年3月3日*)

表[表[W[N,k],{n,1,z },{k,1,n}] ]

S[n]:=和[W[n,k],{k,1,n}]

表[S[n],{n,1, 100 } ]α*(*)A19468*)

H[N],KY]:= F[P[N*R] +P[K*R]

平坦[表[H[n,k],{n,1,z },{k,1,n}] ]

(*)194685*)

表格[表[H[n,k],{n,1,z },{k,1,n}] ]

t[n]:=和[H[n,k],{k,1,n}]

表[t[n],{n,1, 100 } ]α*(*)A19466*)

交叉裁判

囊性纤维变性。A19466.

语境中的顺序:A95304 A17138 A189816*A182585 A1257 A09530

相邻序列:γA19462 1946年3月3日 A19468*A19466 A19467 A19468

关键词

诺恩塔布

作者

克拉克·金伯利,SEP 01 2011

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改3月28日19:01 EDT 2020。包含333103个序列。(在OEIS4上运行)