A075768-OEIS公司

A075768号

Wallis对（x，y）满足西格玛（x^2）=西格玛（y^2）；序列给出了x<y（按x值排序）的不可分解Wallis对的x。

4, 326, 406, 627, 740, 880, 888, 1026, 1110, 1284, 1510, 1528, 2013, 2072, 3216, 3260, 3912, 4866, 4946, 5064, 5064, 5829, 7248, 9768, 10536, 10686, 11836, 12122, 13066, 13398, 13986, 14248, 14397, 15000, 15000, 15430, 15504, 15544, 15544, 18582, 18678 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1，1`
	评论	`如果（x，y）和（u，v。这种对称为可分解对。如果（x，y）和（cx，cy）是Wallis对，那么（cx、cy）也称为可分解。`
	参考文献	`I.Kaplansky，费马、瓦利斯和奥扎南的挑战（以及几个相关的挑战）：II。费马的第二个挑战，预印本，2002年。`
	链接	`多诺万·约翰逊，n=1..1000时的n，a（n）表`
	例子	`（4,5）是Wallis对，因为σ（16）=σ（25）=31。`
	数学	xmax=20000；σ[n_]：=σ[n]=除数σ[1，n]；瓦利斯Q[{x_，y_}]：=西格玛[x^2]==西格马[y^2]；pairs=Reap[Do[Do[If[WallisQ[{x，y}]&&！（GCD[x，y]！=1&&WallisQ[{x，y}/GCD[x，y]]），打印[{x、y}，“是要测试不可分解性的Wallis对”]；母猪[{x，y}]]，{y，x+1，2.2x}]，{x，1，xmax}]][[2，1]]；不可分解Q[{x0_，y0_}]：=（pf=对//展平；sx=交集[大多数@除数[x0]，pf]；sy=交叉[大多数@分区[y0]，pf]；xy=外部[List，sx，sy]//扁平[#，1]&；sel=选择[xy，WallisQ[#]&&WallisQ[{x0，y0}/#]&]；sel=={}）；选择[pairs，uncomposableQ][[All，1]](Jean-François Alcover公司2013年9月26日*）
	交叉参考	`囊性纤维变性。A075769号,A072182号,A072186号,A077053号.` `上下文中的序列：A053917号 A005832号 A195501号A135442号 A086895号 A293241型` `相邻序列：A075765美元 A075766号 A075767号A075769号 A075770型 A075771号`
	关键词	`非n,美好的`
	作者	`N.J.A.斯隆2002年10月13日`
	扩展	`更正和扩展人克劳斯·布罗克豪斯2002年10月22日` `偏移校正人多诺万·约翰逊，2013年9月18日`
	状态	`已批准`