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

 

标志
提示
(来自的问候整数序列在线百科全书!)

修订历史记录A036569号

(带下划线的文本是附加;删除线文本是删除

显示条目1-10|较旧的更改
A036569号 Sedgewick-Incerpi shell排序上限中使用的增量。
(历史;已发布版本)
#20通过N.J.A.斯隆2020年10月19日星期一12:27:44 EDT
状态

提出

已批准

#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
数学

使用[{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
#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)的实现以避免混乱。

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

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

上次修改时间:美国东部夏令时2024年3月28日20:05。包含371254个序列。(在oeis4上运行。)