A094634-OEIS公司

A094634号

A094371号（n）/A094372号（n） ●●●●。

三

1, 3, 4, 5, 4, 5, 5, 2, 6, 7, 5, 6, 6, 7, 7, 6, 7, 7, 7, 6, 7, 7, 7, 8, 8, 7, 8, 8, 8, 7, 8, 8, 8, 9, 9, 8, 9, 9, 8, 9, 9, 9, 10, 9, 8, 9, 9, 9, 10, 9, 10, 10, 9, 2, 10, 10, 9, 10, 10, 10, 11, 10, 11, 9, 10, 10, 10, 11, 10, 11, 11, 10, 11, 11, 10, 11, 11, 11, 11, 10, 11, 11, 11, 11, 12, 11, 10 (列表；图表；参考文献；听；历史；文本；内部格式)

	抵消	`1,2`
	评论	`当a（n）=2时，A094404号（n）不是1。`
	链接	`n=1..87时的n，a（n）表。`
	数学	凯姆普纳[1]：=1；Kempner[n_]：=最大值[Kempner@@@FactorInteger[n]]；肯普纳[p_，1]：=p；Kempner[p_，alpha_]：=Kempner[p，alpha]=模块[{a，k，r，i，nu，k0=alpha（p-1）}，i=nu=Floor[Log[p，1+k0]]；a[1]=1；a[n]：=（p^n-1）/（p-1）；k[nu]=商[α，a[nu]]；r[nu]=α-k[nu]a[nu]；当[r[i]>0时，k[i-1]=商[r[i]，a[i-1]；r[1]=r[i]-k[i-1]a[i-1]；i——]；k0+Plus@@k/@范围[i，nu]]；L=M={}；a=2；Do[s=Kempner[n]；如果[s/n<a，a=s/n；附加到[M，a]；附录[L，n]]，{n，2，40320}]，L/分母[M]（修订人埃里克·韦斯特因，2004年5月17日，以及N.J.A.斯隆，2017年7月3日）
	交叉参考	`囊性纤维变性。A002034号,A094371号,A094372号.` `上下文中的序列：A155078号 A332420型 A115051型A114545型 A309704型 A232702型` `相邻序列：A094631号 A094632号 A094633号A094635号 A094636号 A094637号`
	关键字	`非n`
	作者	`乔纳森·桑多和罗伯特·威尔逊v2004年5月17日`
	状态	`经核准的`