搜索: a007063-编号:a007062
|
|
|
|
1, 3, 5, 7, 4, 12, 10, 17, 6, 22, 15, 19, 24, 33, 31, 18, 8, 44, 35, 9, 39, 55, 26, 42, 29, 20, 14, 32, 58, 78, 76, 52, 38, 68, 74, 59, 67, 101, 27, 47, 88, 75, 61, 109, 50, 124, 54, 113, 41, 102, 119, 84, 34, 40, 136, 105, 71, 92, 131, 108, 28, 171, 169
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
这个数组出现在盖伊,第360页。
(1) 每个正整数最终在a和b中被排除。
(2) 对于无穷多个n,a(n)<b(n)。
(3) 对于无穷多个n,a(n)>b(n)。
|
|
参考文献
|
R.K.Guy,《数论中未解决的问题》,第三版,施普林格出版社,2004年;第E35节。
|
|
链接
|
|
|
例子
|
[1] 2 3 4 5 6
2 [3] 4 5 6 7
2 4 [5] 6 7 8
4 6 2 [7] 8 9
2 8 6 9 [4] 10
9 10 6 11 8 [12]
|
|
数学
|
a=连接[{{1}},
嵌套列表[
扁平[{#,范围[Last[#]+1,Last[#]+3]}&[
压扁[Transpose[{Reverse[#[[1]]],#[[2]]}&[
分区[#,长度[#]/2]&[
Drop[#,{(Length[#]+1)/2}]和[#]]]]&,{2,3,4},200]];
采取[a,9]//表格形式;(*数组,右缩写*)
压扁[Map[Take[#,{(Length[#]+1)/2}]&,a]](*A356026飞机*)
(*替代递归代码*)
KL[i_,j_]:=i+j-1/;(j>=2i-3);
KL[i_,j_]:=KL[i-1,i+(j-2)/2]/;(EvenQ[j]&&(j<2i-3));
KL[i_,j_]:=KL[i-1,i-(j+3)/2]/;(奇数Q[j]&&(j<2i-3));
KL[i_]:=KL[i]=KL[i,i];集合属性[KL,可列表];
|
|
黄体脂酮素
|
(PARI)
KL(i,j)=
{
my(i1,j1);
i1=i;
j1=j;
而(j1<(2*i1-3),
如果(j1%2,
j1=i1-((j1+3)/2),
j1=i1+((j1-2)/2)
);
i1--;
);
返回(i1+j1-1);
}
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 5, 7, 4, 12, 11, 17, 10, 22, 21, 9, 23, 33, 8, 27, 16, 44, 26, 18, 30, 55, 41, 35, 14, 25, 65, 20, 67, 78, 43, 64, 49, 66, 76, 61, 85, 101, 60, 100, 32, 62, 111, 52, 68, 124, 80, 93, 86, 102, 92, 131, 115, 51, 110, 58, 77, 73, 72, 15, 134, 171, 29, 151
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
推测:除2外,每个正整数只出现一次。
|
|
链接
|
|
|
数学
|
lori=Join[{{1}},NestList[Join[#[[Riffle[Range[1,(Length[#]-1)/2],
范围[(长度[#]+3)/2,长度[#]]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},200]];
s=地图[{#,Take[Flatten[Map[Take[#,{(Length[#]+1)/2}]&,#]],150]&[
ToExpression[#]]}&,{“lori”}];
(*下一个程序生成LORI阵列。*)
长度=8;lori=Join[{{1}},NestList[Join[#[[Riffle[Range[1,(Length[#]-1)/2],
范围[(长度[#]+3)/2,长度[#]]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},len]];
网格[Map[Flatten,Transpose[{#,Range[3 Range[Length[#]]-1,
4(长度[#]-2)-1+范围[Length[#]]}]&[lori]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 5, 4, 8, 6, 10, 15, 2, 9, 13, 26, 11, 12, 33, 34, 35, 29, 22, 37, 44, 48, 56, 39, 43, 54, 36, 16, 23, 25, 76, 81, 47, 30, 42, 14, 72, 38, 74, 71, 68, 92, 77, 46, 69, 94, 78, 128, 45, 110, 89, 73, 135, 90, 62, 115, 101, 104, 85, 153, 113, 158, 171, 172
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
推测:每个正整数只出现一次。
|
|
链接
|
|
|
数学
|
长度=8;roli=Join[{{1}},NestList[Join[#[[Riffle[Range[Length[#],(Length#]+3)/2,-1],Range[(Length[#]-1)/2,1,-1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},200]];
s=地图[{#,Take[Flatten[Map[Take[#,{(Length[#]+1)/2}]&,#]],150]&[
ToExpression[#]]}&,{“roli”}];
(*下一个程序生成ROLI数组。*)
长度=8;roli=Join[{{1}},NestList[Join[#[[Riffle[Range[Length[#],(Length#]+3)/2,-1],Range[(Length[#]-1)/2,1,-1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},长度]];
网格[Map[Flatten,Transpose[{#,Range[3 Range[Length[#]]-1,
4(长度[#]-2)-1+范围[Length[#]]}]&[roli]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 5, 2, 10, 9, 15, 8, 20, 19, 7, 21, 31, 6, 25, 14, 42, 24, 16, 28, 53, 39, 33, 12, 23, 63, 18, 65, 76, 41, 62, 47, 64, 74, 59, 83, 99, 58, 98, 30, 60, 109, 50, 66, 122, 78, 91, 84, 100, 90, 129, 113, 49, 108, 56, 75, 71, 70, 13, 132, 169, 27, 149, 43
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
推测:每个正整数只出现一次。
|
|
链接
|
|
|
数学
|
rilo=连接[{{1}},嵌套列表[Join[#[[Riffle[Range[(Length[#]+3)/2,Length[#]],Range[1,(Length[#]-1)/2,1]]],范围[#,#+2]&[(3 Length[/#]+1)/2]]&,{2,3,4},200]];(*A356378型*)
s=映射[{#,Take[Flatten[Map[Take[#,{(Length[#]+1)/2}]&,#]],150]&[
ToExpression[#]]}&,{“rilo”}];
(*下一个程序生成RILO数组。*)
长度=8;rilo=连接[{{1}},嵌套列表[Join[#[[Riffle[Range[(Length[#]+3)/2,Length[#]],
范围[1,(长度[#]-1)/2,1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},长度]];
网格[Map[Flatten,Transpose[{#,Range[3 Range[Length[#]]-1,
4(长度[#]-2)-1+范围[Length[#]]}]&[rilo]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
|
抵消
|
1,2
|
|
评论
|
据推测,这是一个无限序列。
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n,更多,坚硬的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 5, 6, 4, 11, 12, 9, 13, 15, 23, 7, 27, 16, 24, 25, 34, 36, 19, 14, 50, 41, 10, 40, 60, 32, 43, 35, 26, 20, 38, 63, 79, 81, 57, 44, 74, 80, 65, 72, 107, 28, 53, 93, 76, 66, 114, 56, 129, 55, 119, 47, 103, 125, 85, 39, 45, 141, 106, 77, 98, 137, 109, 33
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
推测:除2外,每个正整数只出现一次。
|
|
链接
|
|
|
数学
|
loro=Join[{{1}},NestList[Join[#[[Riffle[Range[1,(Length[#]-1)/2],
范围[长度[#],(长度[#]+3)/2,-1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},200]];
s=地图[{#,Take[Flatten[Map[Take[#,{(Length[#]+1)/2}]&,#]],150]&[
ToExpression[#]]}&,{“loro”}];u=最后[第一[s]]
(*下一个程序生成LORO数组。*)
长度=8;loro=Join[{{1}},NestList[Join[#[[Riffle[Range[1,(Length[#]-1)/2],
范围[长度[#],(长度[#]+3)/2,-1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},长度]];
网格[Map[Flatten,Transpose[{#,Range[3 Range[Length[#]]-1,
4(长度[#]-2)-1+范围[Length[#]]}]&[loro]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 5, 6, 4, 11, 13, 2, 7, 14, 24, 9, 10, 31, 35, 33, 27, 23, 38, 42, 46, 54, 37, 44, 52, 34, 17, 21, 26, 77, 79, 45, 28, 40, 12, 70, 36, 72, 69, 66, 90, 75, 47, 67, 95, 76, 126, 43, 108, 87, 74, 133, 88, 60, 116, 99, 102, 86, 151, 111, 156, 169, 173, 171
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
推测:每个正整数只出现一次。
|
|
链接
|
|
|
数学
|
lori=Join[{{1}},NestList[Join[#[[Riffle[Range[1,(Length[#]-1)/2],
范围[(长度[#]+3)/2,长度[#]]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},200]];
s=地图[{#,Take[Flatten[Map[Take[#,{(Length[#]+1)/2}]&,#]],150]&[
ToExpression[#]]}&,{“lori”}];
(*下一个程序生成LIRO阵列。*)
长度=8;liro=Join[{1}},NestList[Join[#[[Riffle[Range[(Length[#]-1)/2,1,-1],
范围[长度[#],(长度[#]+3)/2,-1]]],
范围[#,#+2]&[(3长度[#]+1)/2]]&,{2,3,4},长度]];
网格[Map[Flatten,Transpose[{#,Range[3 Range[Length[#]]-1,
4(长度[#]-2)-1+范围[Length[#]]}]&[liro]]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 25, 2, 4, 3, 22, 6, 8, 10, 5, 32, 83, 44, 14, 7, 66, 169, 11, 49595, 9, 69, 16, 24, 12, 43, 47, 7598, 15, 133, 109, 13, 198, 19, 33, 18, 23, 58, 65, 60, 93167, 68, 17, 1523, 39, 75, 20, 99, 34, 117, 123
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
参考文献
|
R.K.Guy,未解决问题数论,第E35节。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
C.金伯利,问题1615《数学关键》,第17(2)卷,44 1991年。
|
|
配方奶粉
|
|
|
数学
|
L[n]:=L[n]=(
i=地板[(n+4)/3];
j=地板[(2*n+1)/3];
而[(i!=j),j=最大值[2*(i-j),2*(j-i)-1];i++];
返回[i];
|
|
黄体脂酮素
|
{
本人(i,j);
i=地板((n+4)/3);
j=地板(2*n+1)/3);
而(i!=j),
j=最大值(2*i-2*j,-1-2*i+2*j);
i++;
); 返回(i);}
|
|
交叉参考
|
|
|
关键词
|
非n,美好的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1、2、2、3、3、4、4、2、6、5、5、2、8、6、6、7、7、6、7、7、4、9、2、13、8、8、8、8、2、11、12、2、9、9、9、10、9、8、11、18、10、10、10、10、6、12、9、16、17、16、11、11、11、11、11、7、14、14、14、23、12、12、12、13、11、6、9,21,2,13,13,13,13,13,13,8,15
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
要获得下一行,请从对角线项右侧的第一个元素开始,然后将第一个元素移到对角线的左侧,然后将第二个元素移向右侧,然后再移向左侧,最后将第三个元素移至右侧,以此类推。
|
|
参考文献
|
R.K.Guy,未解决问题数论,第E35节。
|
|
链接
|
克拉克·金伯利,问题1615,Crux Mathematicorum,1991年第17卷(2)44和1992年3月第18卷,第82-83页。
|
|
例子
|
[1] 2 3 4 5 6 7 8 9 10 11 12 ...
2 [3] 4 5 6 7 8 9 10 11 12 13 ...
4 2 [5] 6 7 8 9 10 11 12 13 14 ...
6 2 7 [4] 8 9 10 11 12 13 14 15 ...
8 7 9 2 [10] 6 11 12 13 14 15 16 ...
6 2 11 9 12 [7] 13 8 14 15 16 17 ...
13 12 8 9 14 11[15]2 16 6 17 18。。。
2作为对角元素出现在第25行、第7598行和第49595行(参见。A006852号).
|
|
数学
|
K[i_,j_]:=i+j-1/;(j>=2i-3);
K[i_,j_]:=K[i-1,i-(j+2)/2]/;(EvenQ[j]&&(j<2i-3));
K[i_,j_]:=K[i-1,i+(j-1)/2]/;(奇数Q[j]&&(j<2i-3));
K[i_]:=K[i]=K[i,i];集合属性[K,可列表];
T[n]:=n*(n+1)/2;
S[n_]:=楼层[1/2(1+Sqrt[1+8(n-1)])];
AJ[n_]:=1+T[S[n]]-n;
AI[n_]:=1+S[n]-AJ[n];
|
|
黄体脂酮素
|
(Python)
如果k>=2*n-3:返回n+k-1
q、 r=divmod(k+1,2)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 3, 5, 10, 9, 20, 46, 83, 12, 24, 23, 36, 79, 124, 172, 56, 119, 61, 169, 17, 42, 84, 232, 285, 596, 1186, 3190, 6857, 14225, 12495, 30482, 45827, 79090, 144112, 423486, 1087497, 2443796, 628733, 871389, 1199242, 2787410, 7975876
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,1
|
|
评论
|
科米特会是飞机吗?
|
|
参考文献
|
D.Gale,《数学娱乐》:“小心的纸牌——打乱和切割会造成混乱”,《数学智能》,第14卷,第1期,1992年,第54-56页。
D.Gale,《追踪自动蚂蚁和其他数学探索》,《数学智能器中的数学娱乐专栏集》,斯普林格出版社,1998年。
Hans Havermann,《算法》,第4期,1992年,第2页。
|
|
链接
|
克拉克·金伯利,问题1615《数学关键》,第17(2)卷,44 1991年;问题1615的解决方案《Crux Mathematicorum》,第18卷,1992年3月,第82-83页。
|
|
配方奶粉
|
a(0)=2;a(n)=a(n-1)-金伯利驱逐数组中的第个项(A007063号).
|
|
数学
|
K[i_,j_]:=i+j-1/;(j>=2i-3);
K[i_,j_]:=K[i-1,i-(j+2)/2]/;(EvenQ[j]&&(j<2i-3));
K[i_,j_]:=K[i-1,i+(j-1)/2]/;(奇数Q[j]&&(j<2i-3));
K[i_]:=K[i]=K[i,i];集合属性[K,可列表];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.015秒内完成
|