OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A194965号 分形(A053824美元(n+5)),n>=0。
1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 6, 2, 3, 4, 5, 1, 6, 7, 2, 3, 4, 5, 1, 6, 7, 8, 2, 3, 4, 5, 1, 6, 7, 8, 9, 2, 3, 4, 5, 1, 6, 7, 8, 9, 10, 2, 3, 4, 5, 1, 6, 11, 7, 8, 9, 10, 2, 3, 4, 5, 1, 6, 11, 12, 7, 8, 9, 10, 2, 3, 4, 5, 1, 6, 11, 12, 13, 7, 8, 9, 10, 2, 3, 4, 5, 1, 6, 11 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,3
评论
请参见A194959号用于讨论序列分形诱导的分形和散布。序列(2005年7月24日(n+5)),n>=0是由连接形式为(n,n+1,n+2,n+3,n+4)的5个元组组成的,其中n>=1:1,2,3,4,5,3,45,6,3,5,6,1,。。。
链接
数学
p[n_]:=楼层[(n+4)/5]+模块[n-1,5]
表[p[n],{n,1,90}](*A053824号(n+5),n>=0*)
g[1]={1};g[n_]:=插入[g[n-1],n,p[n]]
f[1]=g[1];f[n_]:=连接[f[n-1],g[n]]
f[20]页(*A194965号*)
行[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}]](*A194966号*)
q[n_]:=位置[w,n];压扁[
表[q[n],{n,1,80}]](*A194967号*)
交叉参考
囊性纤维变性。A194959号,A194965号,A194966号,A194967号
关键词
非n
作者
克拉克·金伯利2011年9月7日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月25日23:05。包含372806个序列。(在oeis4上运行。)