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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A282347号 反对偶向下读取的方形数组(定义见注释)。 2
1, 2, 2, 3, 3, 4, 4, 4, 2, 7, 5, 5, 5, 4, 10, 6, 6, 6, 6, 7, 13, 7, 7, 7, 2, 9, 10, 16, 8, 8, 8, 8, 4, 12, 13, 19, 9, 9, 9, 9, 8, 7, 15, 16, 22, 10, 10, 10, 10, 6, 11, 10, 18, 19, 25, 11, 11, 11, 11, 11, 9, 14, 13, 21, 22, 28, 12, 12, 12, 12, 12, 6, 12, 17 (列表桌子图表参考历史文本内部格式)
偏移
1,2
评论
定义f(x(1),x(2),。。。,x(2k))=(a(2k,。。。a(k-1))。数组由行定义,如下所示。第1行=(1,2,3,4,5,…)=A000027号.从(第n行)=(r(1),r(2),r到(第n+1行),前2n-2项是f(r(1),r(2),。。。,r(n-1),r(n+1),。。。,r(2n-1)),其中r(n)被跳过,后跟(r(2n),r(2n+1),…)=(3n-1、3n、3n+1…)。
链接
例子
方形阵列的角点开始于:
1 2 3 4 5 6 7 8 9 10 11 12 13
2 3 4 5 6 7 8 9 10 11 12 13 14
4 2 5 6 7 8 9 10 11 12 13 14 15
7 4 6 2 8 9 10 11 12 13 14 15 16
10 7 9 4 8 6 11 12 13 14 15 16 17
13 10 12 7 11 9 6 4 14 15 16 17 18
16 13 15 10 14 12 4 7 6 11 17 18 19
19 16 18 13 17 15 11 10 6 14 7 12 20
数学
f[seq_]:=步枪[Take[Reverse[seq],#],Take[seq,#]]&[Floor[Length[seq]/2]];
行数=200;行[1]=表[n,{n,rows}];
表[row[n+1]=扁平[{f[Take[row=n],2n-1]],Drop[row][2n-1]}],{n,Floor[(rows-1)/3+1]}];
TableForm[表格[Take[行[n],20],{n,1,20}]](*A282347号,数组*)
表[行[n][[n]],{n,2+层[(行-1)/3]}](*A282347号,序列*)
(*彼得·J·C·摩西2017年2月12日*)
交叉参考
囊性纤维变性。A035486号,A282348号(对角线)。
关键词
非n,,容易的
作者
克拉克·金伯利2017年2月13日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日04:35。包含371782个序列。(在oeis4上运行。)