A082188-OEIS公司

A082188号

方阵第一列A082025号.

1, 3, 4, 9, 8, 27, 14, 39, 22, 57, 32, 81, 46, 105, 64, 147, 82, 189, 104, 225, 124, 273, 142, 315, 166, 345, 194, 375, 224, 465, 254, 525, 286, 615, 326, 705, 358, 777, 394, 855, 434, 939, 470, 1023, 524, 1113, 572, 1233, 620, 1329, 668, 1395, 722, 1545, 782 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`n=1..55时的n、a（n）表。`
	MAPLE公司	b： =proc（t）选项记住；假结束：b（1）：=true:ncpr:=proc（）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，则返回true fi od；假端：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（n，1），n=1..60）#阿洛伊斯·海因茨2009年10月7日
	数学	`nmax=55；a[1,1]=1；使用={1}；a[_，_]=1；` `循环：=对于[i=n-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]}，CoprimQ[k，#]&]，AppendTo[used、k]；a[i，j]=k；中断[]]]；` `Do[If[EvenQ[n]，Do[loop，{j，n，1，-1}]，Do[循环，{j，1，n}]]，{n，2，nmax}]；` `a[n]：=a[n，1]；` `数组[a，nmax](Jean-François Alcover公司2020年2月19日）`
	交叉参考	`参见。A082025号,A082187号,A082189号,A082190号.` `上下文中的序列：A305551型 A306018型 A076120型A202499年 A341319飞机 A063780号` `相邻序列：A082185号 A082186美元 A082187号A082189号 A082190号 A082191号`
	关键字	`非n`
	作者	`阿玛纳斯·穆尔西2003年4月7日`
	扩展	`更多术语来自R.J.马塔尔2006年5月6日` `编辑了更多术语阿洛伊斯·海因茨2009年10月7日`
	状态	`经核准的`