A075769-OEIS公司

A075769号

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

5、407、489、749、878、1451、1102、1208、1943、1528、1809、1605、2557、3097、3730、4829、6061、4880、6341、6172、7715、7067、10071、17441、11020、17531、14397、17441、14001、24161、24613、14288、14795、20396、25495、22577、19784、15836、19795、27713、30959 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`如果（x，y）和（u，v。这种对称为可分解对。如果（x，y）和（cx，cy）是Wallis对，那么（cx、cy）也称为可分解。`
	参考文献	`I.卡普兰斯基，费马、沃利斯和奥扎南的挑战（以及几个相关的挑战）：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，2]](Jean-François Alcover公司2013年9月26日*）
	交叉参考	`囊性纤维变性。A075768号,A072182号,A072186号,A077053号.` `上下文中的序列：A128866号 A221047型 A368021型A046274号 A221700型 A216089型` `相邻序列：A075766号 A075767号 A075768号A075770型 A075771号 A075772号`
	关键词	`非n,美好的`
	作者	`N.J.A.斯隆2002年10月13日`
	扩展	`更正和扩展人克劳斯·布罗克豪斯2002年10月22日` `19795年起Jean-François Alcover公司2012年12月28日` `偏移校正人多诺万·约翰逊2013年9月18日`
	状态	`经核准的`