|
|
|
|
|
|
|
|
|
#21通过阿洛伊斯·海因茨2020年4月7日星期二10:56:35 EDT |
|
|
|
|
|
|
|
#20通过Jean-François Alcover公司2020年4月7日星期二10:23:53 EDT |
|
|
|
|
|
|
|
#19通过Jean-François Alcover公司2020年4月7日星期二美国东部夏令时10:23:48 |
|
| 数学
|
dmax=55（*反诊断人数*）；
a[1,1]=1；使用={1}；a[_，_]=1；
循环：=对于[i=d-j+1；k=1，True，k++，If[FreeQ[used，k]&AllTrue[{a[i-1，j+1]，a[i-1，j]，a[1，j-1]，a[i，j-1]，a[2+1，j-1]}，互质Q[k，#]&]，附加到[used、k]；a[i，j]=k；中断[]]]；
Do[If[EvenQ[d]，Do[loop，{j，d，1，-1}]，Do[loop、{j，1，d}]]，{d，2，dmax}]；
表[a[1，k]，{k，1，dmax}](*Jean-François Alcover公司2020年4月7日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#18通过阿洛伊斯·海因茨2014年5月27日星期二18:33:13 EDT |
|
|
|
|
|
|
|
#17通过阿洛伊斯·海因茨2014年5月27日星期二美国东部夏令时18:33:10 |
|
| 链接
|
Alois P.Heinz，<a href=“/A082187号/b082187.txt“>n表，n=1..200时为a（n）</a>
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#16通过阿洛伊斯·海因茨2014年1月12日周日14:27:05 EST |
|
|
|
|
|
|
|
#15通过阿洛伊斯·海因茨美国东部时间2014年1月12日星期日14:26:59 |
|
| MAPLE公司
|
b： =proc（t）选项记忆；假结束：b（1）：=true:ncpr:=proc（）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，那么 返回 返回(真的) 光纤；假端：T:=proc（n，k）选项记忆；局部h、t、l；如果n<1或k<1或n=1且k=1，则t:=1，否则h:=1-2*irem（n+k，2）；l： =T（n-1，k），T（n，k-1），T；对于t，而b（t）或ncpr（t，l）做od-fi；b（t）：=真；t端：seq((T（1，k），k=1..60）#阿洛伊斯·海因茨2009年10月7日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#14通过N.J.A.斯隆2013年12月5日星期四19:56:04 EST |
|
| 作者
|
_阿玛纳斯·穆尔西(阿玛纳斯_阴暗的(自动变速箱)雅虎。通用域名格式),_,2003年4月7日
|
|
|
|
|
讨论
|
| 2005年12月星期四
| 19:56
| OEIS服务器以下为：https://oeis.org/edit/global/2075
|
|
|
|
|
|
|
#2013年通过阿洛伊斯·海因茨2012年11月14日星期三14:25:51 EST |
|
|
|
|
|
|
|
#12通过阿洛伊斯·海因茨2012年11月14日星期三14:25:43 EST |
|
| MAPLE公司
|
b： =proc（t）选项记忆；假结束：b（1）：=true:ncpr:=proc（）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，则返回（真）fiod；假端：T:=proc（n，k）选项记忆；局部h、t、l；如果n<1或k<1或n=1且k=1，则t:=1，否则h:=1-2*irem（n+k，2）；l： =T（n-1，k），T（n，k-1），T；对于t，而b（t）或ncpr（t，l）做od-fi；b（t）：=真；t端：seq（t（1，k），k=1..60)；[发件人_); # _Alois P.Heinz，2009年10月7日]
|
|
| 扩展
|
用其他术语编辑 和 枫树 程序通过阿洛伊斯·海因茨2009年10月7日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
