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日`
	状态	`经核准的`