搜索： 编号：a097942
|
| |
|
|
A097942号
|
| 高度集中的数字：这个列表中的每个数字k对方程phi（x）=k的解比前面的任何k都要多（其中phi是Euler的集中函数，A000010号). |
|
+0
14
|
|
|
|
1, 2, 4, 8, 12, 24, 48, 72, 144, 240, 432, 480, 576, 720, 1152, 1440, 2880, 4320, 5760, 8640, 11520, 17280, 25920, 30240, 34560, 40320, 51840, 60480, 69120, 80640, 103680, 120960, 161280, 181440, 207360, 241920, 362880, 483840, 725760, 967680
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1、2
|
|
|
评论
|
如果在运行下面的Mathematica程序后检查PhiAnsYldList，则带有偶数索引的零应对应于非注释(A005277号).
|
|
|
链接
|
|
|
|
例子
|
a（4）=8，因为phi（x）=8有解{15，16，20，24，30}，比a（3）=4多出一个解，其中phi（x）=4有解{5，8，10，12}。
|
|
|
MAPLE公司
|
HighlyTotientNumbers:=proc（n）#n>1是搜索最大值
局部L、m、i、r；L:=空；m：=0；
对于i从1到n do
r:=nops（数字理论[invphi]（i））；
如果r>m，则L:=L，[i，r]；m：=r fi
od；[五十] 结束时间：
A097942号_列表：=n->seq（s[1]，s=HighlyTotitenNumbers（n））；
|
|
|
数学
|
searchMax=2000；phiAnsYldList=表[0，{searchMax}]；Do[phiAns=EulerPhi[m]；如果[phiAns<=searchMax，phiAnsYldList[[phiAns]]+]，{m，1，searchMax^2}]；highlyTotientList={1}；currHigh=1；执行[If[phiAnsYldList[[n]]>phiAnsYldList[[CurrentHigh]]，highlyTotientList={highlyTotientList，n}；currHigh=n]，{n，2，searchMax}]；压扁[highlyTotientList]
|
|
|
黄体脂酮素
|
（鼠尾草）
def HighlyTotingNumbers（n）：#n>1是搜索最大值。
R={}
对于（1..n^2）中的i：
r=euler_phi（i）
如果r<=n：
如果R中有R，则R[R]=R[R]+1
P=[]；m=1
对于排序中的l（R.keys（））：
如果R[l]>m:m=R[l]；P.append（（l，m））
返回P
A097942号_list=lambda n:[s[0]表示HighlyTotitenNumbers（n）中的s
（PARI）
m=0；
对于（i=1，n，
\\来自马克斯·阿列克塞耶夫, http://home.gwu.edu/~maxal/gpscripts/
r=numinvphi（i）；
如果（r>m，打印1（i，“，”）；m=r））；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
