提出

经核准的

编辑

提出

其他序列 属于与中的记录相关A071395号:A083873号,A334419飞机.

（PARI）abindex（n）={my（f=因子（n），r，p，e）；r=σ（f，-1）；if（r<=2，返回（0））:.

整数k的丰度指数是sigma（k）/k，其中sigma是divisors函数的和(A000203号).

第k个术语，共A071395号对于所有较小的项m<k，σ（k）/k<σ（m）/mA071395号.

囊性纤维变性。A000203号,A071395号,A071927号.

其他序列 记录与…有关 记录 在里面 A071395号:A083873号,A334419飞机.

分配基本体 大量的 数字 k(A071395级)谁的 丰度 指数 西格玛(k)/k 有 一 对于记录 阿米拉姆低的 神灵族价值.

20, 70, 88, 104, 464, 650, 1888, 1952, 4030, 5830, 8925, 17816, 32128, 77744, 91388, 128768, 130304, 442365, 521728, 522752, 1848964, 8353792, 8378368, 8382464, 35021696, 45335936, 120888092, 134193152, 775397948, 1845991216, 2146926592, 2146992128, 3381872252

1,1

第一项丰度指数为21/10>72/35>45/22>105/52>465/232>651/325>945/472>…>2

f1[p_，e_]：=（p^（e+1）-1）/（p^（e+1，-p^e）；f2[p_，e]：=（p^（e+1）-p）/（p^（e+1，-1）-1）；

（*如果n是原始丰度，则返回n的丰度指数，否则返回0：*）

abIndex[n_]：=如果[（r=Times@@f1@@@（f=FactorInteger[n]））>2&r*最大值@@f2@@@f<2，r，0]；abIndex[1]=0；

seq[kmax_]：=模块[{s={}，ab，abm=3}，Do[如果[0<（ab=abIndex[k]）<abm，abm=ab；附加到[s，k]]，{k，1，kmax}]；s] ；序列[10^6]

（PARI）abindex（n）={my（f=因子（n），r，p，e）；r=σ（f，-1）；if（r<=2，返回（0

列表a（kmax）={my（ab，abm=3）；对于（k=1，kmax，ab=abindex（k）；如果（ab>0&ab<abm，abm=ab；打印1（k，“，”））；}

囊性纤维变性。A071395号,A071927号.

与以下内容相关的其他记录序列A071395号:A083873号,A334419飞机.

分配

非n

阿米拉姆·埃尔达尔2023年4月6日

经核准的

编辑

分配给Amiram Eldar

分配

经核准的