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