|
| |
|
| A219930型 |
| 使phi（n）表示phi函数的新下限。 |
|
2
|
|
|
|
1, 3, 8, 14, 20, 36, 48, 66, 70, 96, 126, 132, 156, 240, 252, 300, 336, 450, 480, 540, 660, 690, 714, 870, 900, 1080, 1320, 1470, 1530, 1710, 1950, 2340, 2940, 2970, 3360, 3780, 4200, 4830, 5040, 5610, 5670, 5880, 6270, 7140, 7350, 7410, 8400, 9660, 9870
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
评论
|
猜想：如果n在序列中，那么序列包含n的无穷多个倍数。
推测：除了1和3之外，序列的所有成员都是偶数。如果n是奇数，它就不能是无平方的。
推测：不存在N，因此对于所有N>N，a（N）都可以被30整除。
|
|
|
链接
|
|
|
|
例子
|
φ（1）=1，对于n>=1，φ（n）>=1。
φ（3）=2，对于n>=3，φ（n）>=2。
φ（8）=4，对于n>=8，φ（n）>=4。
φ（14）=6，对于n>=14，φ（n）>=6。
|
|
|
数学
|
nn=8！；t=表[EulerPhi[n]，{n，nn}]；min=无穷大；t2={}；Do[If[t[[n]]<=min，AppendTo[t2，{n，t[[n]]}]；最小值=t[[n]]]，{n，长度[t]，1，-1}]；t2=反向[t2]；t3={}；mx=0；做[i[[2]]>mx，mx=i[[2]]；附加到[t3，i[[1]]]，{i，t2}]；t3（第三节）(*T.D.诺伊2012年12月4日*）
|
|
|
黄体脂酮素
|
（JavaScript）
p=新阵列（）；
p[0]=NaN；
p[1]=2；
p[2]=3；
mj=2；
对于（k=3；k<50000；k+=2）makeprimes（k）；
函数makeprimes（i）{
对于（j=2；j<=mj；j++）
如果（i%p[j]==0）返回false；
p[++mj]=i；
返回true；
}
函数prime分解（n）{
var pf=新阵列（），pc，pfc；
pf[0]=新阵列（）；
pf[1]=新阵列（）；
pc=1；
pfc=-1；
而（n！=1）{
如果（n%p[pc]==0）{pfc++；pf[0][pfc]=p[pc]；pf[1][pfc]=0；}
而（n%p[pc]==0）{n/=p[pc]；pf[1][pfc]++；}
pc++；
}
返回pf；
}
函数phi（n）{
变量f，i，v；
v=1；
f=素数分解（n）；
对于（i=0；i<f[0].length；i++）v*=数学.pow（f[0][i]，f[1][i]-1）*（f[0][i]-1）；
返回v；
}
函数isMin（arr，ik，k）{
变量i，im；
im=真；
对于（i=ik；i<arr.length；i++）if（arr[i]<k）{im=false；break；}
返回im；
}
phiV=新阵列（）；
对于（k=1；k<50000；k++）phiV[k]=phi（k）；
厘米=1；
对于（n=1；n<3000；n++）if（phiV[n]>cm&isMin（phiV，n，phiV[nC]））{cm=phiV[n]；document.write（n+“，”）；}
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
