整数序列在线百科全书（OEIS）

修订历史记录A036569号

（粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)
显示条目1-10|较旧的更改

A036569号

Sedgewick-Incerpi shell排序上限中使用的增量。
(历史;已发布版本)

#20通过N.J.A.斯隆美国东部时间2020年10月19日星期一12:27:44

状态

提出

经核准的

#19通过约尔格·阿恩特2020年10月15日星期四06:38:06 EDT

状态

编辑

提出

#18通过约尔格·阿恩特2020年10月15日星期四06:38:02 EDT

数学

使用[{r=Floor[Sqrt[2k+Sqrt[2]]}，

选择[Range[r]，#！=b和]）]]；(*_Morgan Owens_，2020年10月8日*）

状态

提出

编辑

#17通过摩根·欧文斯2020年10月15日星期四美国东部夏令时06:09:04

状态

编辑

提出

#16通过摩根·欧文斯2020年10月15日星期四美国东部夏令时06:07:25

数学

使用[{r=Floor[Sqrt[2k+Sqrt[2]]}，

带有[{b=r（r+1）/2-k + 1},

次数@@(A036567号/@

次数 @@ (A036567号 /@ 选择[范围[0, 第页 - 1], # != b和]）]]; (* 摩根欧文斯_, 10月 08 2020 *)

] (*摩根·欧文斯2020年10月8日*）

阵列[A036569号, 10]

状态

提出

编辑

讨论

10月15日星期四

06:09

摩根·欧文斯：调整了函数以符合对A036567的更改。添加了一个命令来显式输出一些术语。

#15通过摩根·欧文斯2010年10月8日星期四05:49:33 EDT

状态

编辑

提出

讨论

2008年10月4日

11:46

韦斯利·伊万·赫特Mmca没有为我提出任何条件。

2009年10月5日

05:40

摩根·欧文斯：我没有任何问题：在[1]中：=A036567[0]=3；A036567[q_]：=A036567[q]=[{prev=A036567/@Range[0，q-1]}，块[{n=天花板[（5/2）^（q+1）]}，而[Nand@@（（#==1&）/@GCD[prev，n]），n++]；n] ]；（*_欧文风琴，2020年10月8日*）在[3]中：=A036569[k_]：=使用[{r=Floor[Sqrt[2k+Sqrt[2]]}，带有[{b=r（r+1）/2-k}，次数@@（A036567/@选择[范围[0，r-1]，#！=b&]）]]（*_欧文，2020年10月8日*）在[4]中：=A036569[8]输出[4]=861

#14通过摩根·欧文斯2020年10月8日星期四05:49:25 EDT

数学

使用[{r=Floor[Sqrt[2k+Sqrt[2]]}，

]

] (*摩根·欧文斯，2020年10月8日*）

#13通过米歇尔·马库斯2020年10月7日星期三07:35:34 EDT

状态

提出

编辑

#12通过摩根·欧文斯2020年10月7日星期三05:41:02 EDT

状态

编辑

提出

讨论

2007年10月3日

07:35

米歇尔·马库斯：请签署新计划：参见第1项https://oeis.org/wiki/Style_Sheet#Mathematica（网址：https://oeis.org/wiki/Style_Sheet#Mathematica）

#11通过摩根·欧文斯2020年10月2日星期五21:33:44 EDT

数学

a[0]=3；

a[q_]：=a[q]=

使用[{prev=a/@Range[0，q-1]}，

块[{n=天花板[（5/2）^（q+1）]}，

而[Nand@@（（#==1&）/@GCD[prev，n]），n++]；n] ]；

次数@@(一 A036567号 /@选择[Range[0，r-1]，#！=b和]）]

讨论

2002年10月5日

21:36

摩根·欧文斯：添加序列的Mathematica实现；调用A036567（q.v）的实现以避免混乱。