|
| |
| |
|
|
|
1、2、3、4、6、8、12、40、15、16、24、30、40、45、48、60、72、80、90、120、144、180、240、252、280、360、420、504、560、720、840、1008、1260、1344、1440、1680、1920、2016、2520、2688、2880、3360、3456、4032、5040、5760、6720、8064、8640、10080、10368、11340、13440、72576、15120、17280、20160、22680、24192、25920、26880电话：30240
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
a（5）=6，因为第5个增量最小比率A002034号（n） /n是4/24=1/6。
|
|
|
数学
|
(A002034号[n_]：=（m=1；而[！IntegerQ[m！/n]，m++]；m）；M={}；使用[{s=A002034号[n] }，如果[s/n<Min[M]，M=Append[M，s/n]]，{n，120}]；分母[M]）
A002034号[1] := 1;A002034号[n_]：=最大值[A002034号@@@FactorInteger[n]]；A002034号[p，1]：=p；A002034号[p_，alpha_]：=A002034号[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]]；M={}；a=2；做[s=A002034号[n] ；如果[s/n<a，a=s/n；附加到[M，a]]，{n，2，40320}]；分母[M]（来自埃里克·韦斯特因2004年5月17日）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,压裂
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
