登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A054065型 τ诱导的分形序列:对于k>=1,设p(k)是1,2,…,的置换,。。。,通过对h=1,2,…,的分数部分{h*tau}排序获得k,。。。,k;然后并置p(1)、p(2)、p(3),。。。 11
1, 2, 1, 2, 1, 3, 2, 4, 1, 3, 5, 2, 4, 1, 3, 5, 2, 4, 1, 6, 3, 5, 2, 7, 4, 1, 6, 3, 5, 2, 7, 4, 1, 6, 3, 8, 5, 2, 7, 4, 9, 1, 6, 3, 8, 5, 10, 2, 7, 4, 9, 1, 6, 3, 8, 5, 10, 2, 7, 4, 9, 1, 6, 11, 3, 8, 5, 10, 2, 7, 12, 4, 9, 1, 6, 11, 3, 8, 13, 5, 10, 2, 7, 12, 4, 9, 1, 6, 11, 3, 8, 13, 5, 10, 2, 7, 12, 4, 9 (列表图表参考历史文本内部格式)
抵消
1,2
链接
例子
p(1)=(1);p(2)=(2,1);p(3)=(2,1,3);p(4)=(2,4,1,3)。
作为三角形阵列(请参见A194832号),前九行:
1
2 1
2 1 3
2 4 1 3
5 2 4 1 3
5 2 4 1 6 3
5 2 7 4 1 6 3
5 2 7 4 1 6 3 8
5 2 7 4 9 1 6 3 8
数学
r=(1+平方[5])/2;
t[n_]:=表[分数部分[k*r],{k,1,n}];
f=压扁[表[压扁[(位置[t[n],#1]&)/@排序[t[n],较少]],{n,1,20}]](*A054065型*)
TableForm[表格[扁平[(位置[t[n],#1]&)/@Sort[t[n],Less]],{n,1,15}]]
row[n_]:=位置[f,n];
u=表格形式[表格[行[n],{n,1,20}]]
g[n_,k_]:=部件[行[n],k];
p=扁平[表[g[k,n-k+1],{n,1,13},{k,1,n}]](*A054069号*)
q[n_]:=位置[p,n];压扁[表[q[n],{n,1,80}]](*A054068号*)
(*克拉克·金伯利2011年9月3日*)
扁平[表格[排序[表格[分数部分[黄金比率k],{k,n}]],{n,10}]](*Birkas Gyorgy公司2012年6月30日*)
交叉参考
p(k)中1的位置由下式给出A019446号k在p(k)中的位置由下式给出A019587年。有关相关数组和序列,请参见A194832号.
关键词
非n
作者
扩展
由扩展雷·钱德勒2009年4月18日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

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

上次修改时间:美国东部夏令时2024年4月19日15:34。包含371794个序列。(在oeis4上运行。)