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

 

标志
提示
（来自的问候整数序列在线百科全书!)
A054073号 sqrt（2）诱导的分形序列：对于k>=1，设p（k）是1,2，…，的置换，。。。，k通过对h＝1，2，。。。，k；然后并置p（1）、p（2）、p（3），。。。 8
1, 1, 2, 3, 1, 2, 3, 1, 4, 2, 5, 3, 1, 4, 2, 5, 3, 1, 6, 4, 2, 5, 3, 1, 6, 4, 2, 7, 5, 3, 8, 1, 6, 4, 2, 7, 5, 3, 8, 1, 6, 4, 9, 2, 7, 5, 10, 3, 8, 1, 6, 4, 9, 2, 7, 5, 10, 3, 8, 1, 6, 11, 4, 9, 2, 7, 5, 10, 3, 8, 1, 6, 11, 4, 9, 2, 7, 12, 5, 10, 3, 8, 13, 1, 6, 11 (列表;图表;参考;听;历史;文本;内部格式)
抵消
1,3
评论
A054073号生成散布A054077号; 看见A194832号和Mathematica程序。
链接
n=1..86时的n，a（n）表。
G.C.格鲁贝尔，n=1..5000时的n，a（n）表
例子
p（1）=（1）；p（2）=（1,2）；p（3）=（3,1,2）；p（4）=（3,1,4,2）。
当格式化为三角形时，前9行：
1
1 2
3 1 2
3 1 4 2
5 3 1 4 2
5 3 1 6 4 2
5 3 1 6 4 2 7
5 3 8 1 6 4 2 7
5 3 8 1 6 4 9 2 7
数学
r=平方[2]；
t[n_]：=表[分数部分[k*r]，{k，1，n}]；
f=展平[表格[展平[（位置[t[n]，#1]&）/@Sort[t[n]，Less]]，
{n，1，20}]](*A054073号*)
TableForm[表格[扁平[（位置[t[n]，#1]&）/@Sort[t[n]，Less]]，{n，1，15}]]
行[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}]](*A054077号*)
q[n_]：=位置[p，n]；压扁[
表[q[n]，{n，1，80}]](*A054076号*)
(*克拉克·金伯利，2011年9月3日*）
交叉参考
囊性纤维变性。A054071号,A054072号,A194832号.
上下文中的序列：A194862号 A194832号 A195107号*A194871号 A194899号 A228094号
相邻序列：A054070型 A054071美元 A054072号*A054074号 A054075号 A054076号
关键字
非n
作者
克拉克·金伯利
状态
经核准的

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

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

上次修改时间：2024年4月23日16:40 EDT。包含371916个序列。（在oeis4上运行。）