A082187-OEIS公司

A082187号

第一排方阵A082025号.

1, 2, 7, 6, 23, 10, 21, 20, 33, 28, 51, 44, 87, 56, 117, 80, 153, 100, 201, 110, 243, 140, 291, 164, 327, 188, 387, 218, 405, 248, 483, 284, 555, 322, 633, 340, 711, 392, 783, 430, 861, 460, 951, 520, 1029, 550, 1137, 616, 1251, 664, 1335, 718, 1365, 778, 1551 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`阿洛伊斯·海因茨，n=1..200时的n，a（n）表`
	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）#阿洛伊斯·海因茨2009年10月7日
	数学	`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日）`
	交叉参考	`囊性纤维变性。A082025号,A082188号,A082189号,A082190号.` `上下文中的序列：A365007型 A082017号 A072985号A211368型 A225101型 A351823型` `相邻序列：A082184号 A082185美元 A082186号A082188号 A082189号 A082190号`
	关键词	`非n`
	作者	`阿玛纳斯·穆尔西2003年4月7日`
	扩展	`更多术语来自R.J.马塔尔2006年5月6日` `由编辑，包含更多条款阿洛伊斯·海因茨2009年10月7日`
	状态	`经核准的`