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

 


提示
（来自的问候整数序列在线百科全书!)
A195113号
删除分形序列的第二项得到的分形序列的分形化A002260美元.
三
1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 5, 2, 3, 4, 1, 5, 6, 2, 3, 4, 1, 5, 6, 7, 2, 3, 4, 1, 5, 6, 7, 8, 2, 3, 4, 1, 9, 5, 6, 7, 8, 2, 3, 4, 1, 9, 10, 5, 6, 7, 8, 2, 3, 4, 1, 9, 10, 11, 5, 6, 7, 8, 2, 3, 4, 1, 9, 10, 11, 12, 5, 6, 7, 8, 2, 3, 4, 1, 9, 10, 11, 12, 13, 5, 6, 7, 8, 2, 3, 4, 1, 14, 9, 10
(列表;图表;参考;听;历史;文本;内部格式)
抵消
1,2
评论
请参见A194959号讨论了序列p的分形和分形诱导的离散；对于本例，p是段1、123123412345123456、…、，。。。，所以p是从A002260美元删除段12。
链接
n，a（n）的表，n=1..94。
数学
j[n_]：=表[k，{k，1，n}]；
t[1]=j[1]；t[2]=j[1]；
t[n_]：=连接[t[n-1]，j[n]](*A002260美元; 首字母1、1、2由1*回复）
吨[12]
p[n]：=t[20][[n]]
g[1]={1}；g[n_]：=插入[g[n-1]，n，p[n]]
f[1]=g[1]；f[n_]：=连接[f[n-1]，g[n]]
f[20]页(*A195113号*)
行[n_]：=位置[f[30]，n]；
u=表格形式[表格[行[n]，{n，1，5}]]
v[n_，k_]：=部分[行[n]，k]；
w=扁平[表[v[k，n-k+1]，{n，1，13}，
｛k，1，n｝]](*A195114号*)
q[n_]：=位置[w，n]；压扁[表[q[n]，
{n，1，80}]](*A195115号*)
交叉参考
囊性纤维变性。A194959号,A002260美元,A195114号,A195115号.
上下文中的序列：A064379美元 A278961型 A194973号*A120418号 A120853号 A175022号
相邻序列：A195110型 A195111号 A195112号*A195114号 A195115号 A195116年
关键字
非n
作者
克拉克·金伯利2011年9月9日
状态
经核准的

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

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

上次修改时间：美国东部夏令时2024年9月21日12:44。包含376084个序列。（在oeis4上运行。）