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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A194877号 三角阵列(和分形序列):第n行是从分数部分{r}、{2r}…、。。。,{nr},其中r=sqrt(8)。 4
1, 2, 1, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 6, 5, 4, 3, 2, 7, 1, 6, 5, 4, 3, 8, 2, 7, 1, 6, 5, 4, 9, 3, 8, 2, 7, 1, 6, 5, 10, 4, 9, 3, 8, 2, 7, 1, 6, 11, 5, 10, 4, 9, 3, 8, 2, 7, 1, 6, 11, 5, 10, 4, 9, 3, 8, 2, 7, 1, 12, 6, 11, 5, 10, 4, 9, 3, 8, 2, 13, 7, 1, 12, 6, 11, 5, 10 (列表;桌子;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
评论
请参见A194832号进行一般性讨论。
链接
例子
前九排:
1
2 1
3 2 1
4 3 2 1
5 4 3 2 1
5 4 3 2 1 6
5 4 3 2 7 1 6
5 4 3 8 2 7 1 6
5 4 9 3 8 2 7 1 6
数学
r=平方[8];
t[n_]:=表[分数部分[k*r],{k,1,n}];
f=压扁[表[压扁[(位置[t[n],#1]&)/@
排序[t[n],Less]],{n,1,20}]](*A194877号*)
表格形式[Table[Flatten](位置[t[n],#1]&)/@
排序[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}]](*A194878号*)
q[n_]:=位置[p,n];压扁[表[q[n],
{n,1,80}]](*A194879号*)
交叉参考
囊性纤维变性。A194832号,A194878号,A194879号
关键词
非n,
作者
克拉克·金伯利2011年9月4日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年6月18日23:11。包含373488个序列。(在oeis4上运行。)