A099501-OEIS公司

A099501号

区间[n^2+1，（n+1）^2-1]中整数子集中乘积为平方两倍的最小成员数。

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

	抵消	`1,3`
	评论	`Granville和Selfridge推测a（n）<=3代表所有n。`
	链接	`乔瓦尼·雷斯塔，n=1..10000时的n，a（n）表` `安德鲁·格兰维尔和约翰·塞尔弗里奇，区间整数乘积，模平方《组合数学电子杂志》，第8卷（1），2001年。`
	例子	`a（5）=1，因为区间[26,35]包含两组这样的整数（{32}和{27,28,30,35}），最小的一组有1个成员。`
	数学	需要[“离散数学`组合数学`”]；表[lst=范围[n^2+1，（n+1）^ 2-1]；x=时间@@lst；{p，e}=转置[FactorInteger[x]]；执行[If[e[i]]==1&&p[[i]]=2，lst=删除案例[lst，_？（Mod[#，p[[i]]==0&）]]，{i，长度[p]}]；k=1；发现=错误；而[！found&&k<=长度[lst]，m=0；而[！found&&m<二项式[Length[lst]，k]，ss=UnrankK子集[m，k，lst]；x=次数@@ss；如果[Mod[x，2]==0&&IntegerQ[Sqrt[x/2]]，则发现=True]；m++]；k++]；（打印[{n，ss，x}]；）长度[ss]，{n，150}]
	交叉参考	`囊性纤维变性。A099500型（子集数量），A099502级（n使得a（n）=3）。` `上下文中的序列：A285770型 A370892型 A174820号A089762号 A257567号 A318440型` `相邻序列：A099498号 A099499号 A099500型A099502号 A099503型 A099504号`
	关键词	`非n`
	作者	`T.D.诺伊2004年10月20日`
	状态	`经核准的`