A007071-OEIS公司

A007071号

光谱阵列W的第一行2-洗牌（sqrt 2）。
（原名M0616）

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年（包括该序列）。

链接

n=1..72时的n，a（n）表。

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.马塔尔*)

交叉参考

上下文中的序列：A057196号 A080637号 A124134号*A242482型 A085784号 A085783号

相邻序列：A007068号 A007069号 A007070号*A007072号 A007073号 A007074号

关键词

非n,容易的

作者

N.J.A.斯隆,米拉·伯恩斯坦

扩展

更多术语来自R.J.马塔尔2009年8月17日

状态

经核准的