A187822-OEIS公司

A187822号

最小的k，使得k的除数的部分和（按递增顺序）正好包含n个素数。

三

1, 2, 4, 16, 64, 140, 440, 700, 1650, 2304, 5180, 3960, 3900, 14400, 15600, 43560, 39600, 57600, 56700, 81900, 25200, 112896, 100100, 177840, 198000, 411840, 222768, 226800, 637560, 752400, 556920, 907200, 409500, 565488, 1306800, 1984500, 1884960

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

抵消

0,2

看起来，a（n）对于n>0是偶数，对于n>1是非方形的。我们还推测，存在平方1、4、16、64、2304、14400、57600、112896…的无限子序列。。。。

对应的三角形，其中第n行给出n个素数，起始于：

k=1->无素数

k=2->3；

k=4->3，7；

k=16->3、7、31；

k=64->3、7、31、127；

k=140->3、7、19、29、43；

k=440->3、7、41、61、83、167。。。

链接

阿米拉姆·埃尔达尔，n=0..126时的n、a（n）表

例子

a（4）=64，因为产生4个素数的除数{1,2,4,8,16,32,64}的部分和是：

1 + 2 = 3;

1 + 2 + 4 = 7;

1 + 2 + 4 + 8 + 16 = 31;

1 + 2 + 4 + 8 + 16 + 32 + 64 = 127.

MAPLE公司

读取（“转换”）：

A187822号：=进程（n）

局部k、ps、pct；

如果n=0，则

返回1；

结束条件：；

从1到k

ps:=排序（convert（numtheory[divisors]（k），list））；

ps：=PSUM（ps）；

百分比：=0；

对于p in ps do

如果isprime（p），那么

pct:=pct+1；

结束条件：；

结束do：

如果pct=n，则

返回k；

结束条件：；

结束do：

结束进程：#R.J.马塔尔2013年1月18日

数学

a[n_]：=Catch[For[k=1，True，k++，cnt=Count[Accumulate[Divisors[k]]，_？PrimeQ]；如果[cnt==n，打印[{n，k}]；投掷[k]]]；表[a[n]，{n，0，40}](*Jean-François Alcover公司，2012年12月27日*）

黄体脂酮素

（平价）A187822号（n） ={n<1||对于（k=1，9e9，numdiv（k）<n&next；my（t=除数（k），s=1，c）；对于（i=2，#t，isprime（s+=t[i]）&c++=n&return（k）））}\\M.F.哈斯勒2012年12月29日

交叉参考

囊性纤维变性。A023194号,A062700型,A000203号.

上下文中的序列：A138871号 A001901号 A127588号*A092585号 A106186号 A155543号

相邻序列：A187819号 A187820号 A187821号*A187823号 A187824号 A187825号

关键字

非n

作者

米歇尔·拉格诺2012年12月27日

状态

经核准的