登录
A007071号
光谱阵列W的第一行2-洗牌(sqrt 2)。
(原名M0616)
1
1, 2, 3, 5, 6, 7, 9, 11, 12, 13, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 35, 36, 37, 39, 40, 41, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 59, 60, 61, 63, 64, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 80, 81, 83, 84, 85, 87, 88, 89, 91, 93, 94, 95, 97, 98, 99, 101
抵消
1,2
参考文献
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
链接
Aviezri S.Fraenkel和Clark Kimberling,广义Wythoff数组、洗牌和散布,离散。数学。 126 (1-3) (1994) 137-149.[来自R.J.马塔尔,2009年8月17日]
MAPLE公司
数字:=200:WythSpec:=proc(n,x)floor(n*x);结束时间:A001951号:=程序(n)WythSpec(n,sqrt(2));结束时间:A001952号:=进程(n)A001951号(n) +2*n;end:Wsqrt2:=proc(i,j)选项记住;如果j=1,则A001951号(A001951号(i) );elif j=2,则A001952号(A001951号(i) );elif类型(j,“奇数”)则A001951号(程序名(i,j-1));其他A001952号(程序名(i,j-2));fi;结束时间:A007071号:=proc(n)选项记忆;局部a;如果n=1,则为1;如果Wsqrt2(k,1)=a,则返回(a);elif Wsqrt2(k,1)>a然后中断;fi;od:对于从1开始的k,如果Wsqrt2(k,2)=a,则返回(a);elif Wsqrt2(k,2)>a然后中断;fi;od:od:fi;结束:seq(A007071号(n) ,n=1..100); #R.J.马塔尔2009年8月17日
数学
WythSpec[n_,x_]:=楼层[n*x];
A001951号[n_]:=WythSpec[n,Sqrt[2];
A001952号[编号]:=A001951号[n] +2n;
WSqrt2[i_,j_]:=WSqrt2[i,j]=哪个[j==1,A001951号[A001951号[i] ],j==2,A001952号[A001951号[i] ],奇数Q[j],A001951号[WSqrt2[i,j-1]],正确,A001952年[WSqrt2[i,j-2]];
A007071号[编号]:=A007071号[n] =模[{a,k},如果[n==1,1,对于[a=A007071号[n-1]+1,真,a++,For[k=1,True,k++,If[WSqrt2[k,1]==a,Return[a],If[WSqrt2[k,1]>a,Break[]]];对于[k=1,True,k++,If[WSqrt2[k,2]==a,Return[a],If[WSqrt2[k,2]>a,Break[]]]]];
表[A007071号[n] ,{n,1,72}](*Jean-François Alcover公司2023年12月20日,之后R.J.马塔尔*)
关键词
非n,容易的
扩展
更多术语来自R.J.马塔尔2009年8月17日
状态
经核准的