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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A194863号 矩形阵列,通过反对偶:第n行给出了n在分形序列中的位置A194862号; 穿插。 4
1, 2, 3, 5, 6, 4, 8, 10, 7, 9, 12, 14, 11, 13, 15, 18, 20, 16, 19, 21, 17, 24, 27, 22, 25, 28, 23, 26, 31, 34, 29, 32, 35, 30, 33, 36, 40, 43, 37, 41, 44, 38, 42, 45, 39, 49, 53, 46, 50, 54, 47, 51, 55, 48, 52, 60, 64, 57, 61, 65, 58, 62, 66, 59, 63, 56, 71, 76, 68 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
有关一般性讨论,请参见A194832号.
链接
例子
西北角:
1…2…5…8…12…18
3...6...10..14..20..27
4...7...11..16..22..29
9…13…19…25…32…41
15..21..28..35..44..54
数学
r=(1+Sqrt[3])/2;
t[n_]:=表[分数部分[k*r],{k,1,n}];
f=压扁[表[压扁[(位置[t[n],#1]&)/@
排序[t[n],Less]],{n,1,20}]](*A194862号*)
TableForm[表格[扁平[(位置[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}]](*A194863号*)
q[n_]:=位置[p,n];压扁[表[q[n],
{n,1,80}]](*A194867号*)
交叉参考
囊性纤维变性。A194832号,A194862号,A194867号.
关键词
非n,
作者
克拉克·金伯利2011年9月4日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年6月4日03:29。包含373089个序列。(在oeis4上运行。)