A065391-OEIS公司

A065391号

数字n是这样的A062401型（n） =φ（σ（n））增加；即。，A062401型（n）代表一个新的峰值，因此A062401型（n） >A062401型（k）对于所有k<n。

三

1, 2, 4, 8, 9, 16, 32, 36, 64, 100, 144, 256, 324, 400, 576, 900, 1296, 1600, 2304, 2916, 3600, 5184, 8100, 9216, 11664, 14400, 20736, 22500, 25600, 30276, 32400, 41616, 46656, 57600, 69696, 72900, 82944, 90000, 104976, 115600, 121104, 129600

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

中的记录索引A062401型. -迈克尔·德弗利格，2018年12月6日

链接

哈里·史密斯，n=1..100时的n，a（n）表

例子

的初始段A062401型: {1,2,2,6,2,4,4,8,12,6,4,12,6,8,8,30,6,...}. 峰值[超过之前所有值]分别为1、2、6、8、12、30，达到位置1、2，4、8、9、16。条目>2是精确幂，除了2、8和32似乎是正方形。

数学

a=0；s=0；Do[s=EulerPhi[DivisorSigma[1，n]]；如果[s>a，a=s；打印[n]]，{n，1，10^6}]

（*第二个节目：*）

使用[{s=Array[EulerPhi@DivisorSigma[1，#]&，2*10^5]}，Map[FirstPosition[s，#][[1]]&，Union@FoldList[Max，s]]](*迈克尔·德弗利格2018年12月6日*）

删除重复项[Table[{n，EulerPhi[DivisorSigma[1，n]]}，{n，150000}]，GreaterEqual[#1[[2]]，#2[[2]]&][[；；，1]](*哈维·P·戴尔2023年5月12日*）

黄体脂酮素

（PARI）{n=r=0；对于（m=1，10^9，x=eulerphi（sigma（m））；如果（x>r，r=x；写入（“b065391.txt”，n++，“”，m）；如果\\哈里·史密斯2009年10月18日

交叉参考

囊性纤维变性。A000010号,A000203号,A062401型,A062402型,A065392号.

上下文中的序列：A046680号 A331992型 A113570型*A161792号 A111261号 A276773型

相邻序列：A065388号 A065389美元 A065390号*A065392号 A065393号 A065394号

关键词

非n

作者

拉博斯·埃利默2001年11月5日

状态

经核准的