A157791-OEIS公司

A157791号

两个相邻边上的最少点阵点数，从中可以看到正方形n×n点阵的每个点。

1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,3`
	评论	`也就是说，这些点是从nXn晶格两个相邻边上的2n-1点中选择的。`
	链接	`n=1..87时的n，a（n）表。` `埃里克·魏斯坦的数学世界，可见点`
	例子	`a（11）=4，因为从（1,1）、（1,2）、（2,1）和（1,4）可以看到所有121个点。` `a（25）=4，因为从（1,2）、（4,1）、（6,1）和（23,1）可以看到所有625个点。`
	数学	联接[｛1｝，表[隐藏=表[｛｝，｛n^2｝]；边缘Pts={}；做[pt1=（c-1）n+d；如果[c==1\|\|d==1，附加到[edgePts，pt1]；lst＝｛｝；Do[pt2=（a-1）n+b；如果[GCD[c-a，d-b]>1，AppendTo[lst，pt2]，{a，n}，{b，n}]；隐藏[[pt1]]=lst]，{c，n}，{d，n}]；edgePts=排序[edgePts]；done=假；k=0；done=假；k=0；当[！done，k++；len=二项式[2n-1，k]；i=0；而[i<len，i++；s=子集[edgePts，{k}，{i}][1]；如果[Intersection@@hidden[[s]]=={}，done=True；中断[]]]；k、 {n，2，11}]]
	交叉参考	`囊性纤维变性。A157639号,A157720型,A157790号,A157792号.` `上下文中的序列：A084506年 A071578号 A364800型A236857型 A156874号 A294234号` `相邻序列：A157788号 A157789号 A157790号A157792号 A157793号 A157794号`
	关键词	`坚硬的,非n`
	作者	`T.D.诺伊2009年3月6日`
	扩展	`更多术语来自拉尔斯·布隆伯格2014年11月6日`
	状态	`经核准的`