A281531-OEIS公司

A281531型

a（n）是最小的分子k，因此适当的分数k/n需要三个或更多的项作为埃及分数，如果不存在这样的分子，则为0。

0, 0, 0, 4, 0, 3, 7, 7, 8, 5, 11, 3, 6, 7, 7, 4, 13, 3, 13, 9, 5, 5, 17, 4, 6, 8, 12, 4, 14, 3, 7, 5, 8, 11, 17, 3, 6, 9, 17, 4, 18, 3, 7, 11, 7, 5, 21, 3, 8, 7, 11, 4, 13, 9, 13, 7, 7, 7, 28, 3, 5, 13, 7, 4, 10, 3, 11, 11, 13, 5, 23, 3, 6, 11, 9, 5, 11, 3, 19 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`2,4`
	评论	`如果n>3是素数，a（n）=A007978号（n+1）-罗伯特·伊斯雷尔2019年12月26日`
	链接	`罗伯特·伊斯雷尔，n=2..10000时的n，a（n）表` `与埃及分数相关的序列索引条目`
	MAPLE公司	`f： =proc（n）选项记忆；局部k，T；` `T： =数字理论：-除数（n^2）；` `对于从2到n-1的k do` `g： =igcd（k，n）；` `如果g>1，则` `r： =工艺名称（n/g）；` `如果k＝r*g，则返回k fi；` `其他的` `如果不是成员（-n mod k，T mod k），则返回k fi` `fi（菲涅耳）` `od；` `0` `终末程序；` `地图（f，[2..100]美元）#罗伯特·伊斯雷尔2019年12月25日`
	数学	`a[n_]：=a[n]=模[{k，T}，T=除数[n^2]；对于[k=2，k<=n-1，k++，g=GCD[k，n]；如果[g>1，r=a[n/g]；如果[k==r g，返回[k]]，如果[FreeQ[Mod[T，k]，Mod[-n，k]]，返回[k]]]；0];` `a/@范围[2100](Jean-François Alcover公司2020年10月6日之后罗伯特·伊斯雷尔)`
	黄体脂酮素	`（岩浆）lst:=[]；对于[2..80]中的n，do对于[1..n-1]中的k，dof：=k/n；x： =1；v： =0；如果分子（f）等于1，则v:=1；else while f lt 2/x do if Numerator（f-1/x）eq 1 then v:=1；断裂；结束条件：；x+：=1；结束while；结束条件：；如果v eq 0，则追加（~lst，k）；断裂；结束条件：；如果k eq n-1，则追加（~lst，0）；结束条件：；结束；结束；第一阶段；`
	交叉参考	`囊性纤维变性。A007978号,A281530型.` `上下文中的序列：A153615号 A352718型 A338736型A248914型 A246686型 A048649号` `相邻序列：A281528型 A281529号 A281530型2015年2月32日 A281533型 A281534号`
	关键字	`非n`
	作者	`阿尔卡迪乌斯·韦索洛夫斯基2017年1月23日`
	状态	`经核准的`