|
| |
|
| A233193型 |
| 对k进行编号，使k除以1+Sum_{j=1..k}素数（j）^11。 |
|
1
|
|
|
|
1, 2, 4, 5, 6, 10, 12, 17, 22, 45, 87, 217, 546, 17806, 41850, 127973, 189586, 435067, 475810, 595932, 3319478, 3737221, 5741156, 7349730, 7473734, 13114674, 26076896, 48515830, 48791555, 419983404, 2217443166, 2617207503, 2894318150, 8776851351, 118596802796
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
a（5）=6，因为1加上前6个素数的和^11是2079498398712，可以被6整除。
|
|
|
数学
|
p=2；k=0；s=1；lst={}；当[k<41000000000，s=s+p^11；如果[Mod[s，++k]==0，AppendTo[lst，k]；打印[{k，p}]]；p=NextPrime@p]（*源自A128169号*)
使用[{nn=5*10^7}，选择[Thread[{Accumulate[Prime[Range[nn]]^11]+1，Range[nn]}]，Divisible[#[[1]]，#[[2]]&][All，2]]（*程序生成序列的前29个项。若要生成全部34个项，请将nn的值更改为878*10^7，但程序需要很长时间才能运行。*）(*哈维·P·戴尔2017年3月9日*）
|
|
|
交叉参考
|
囊性纤维变性。A085450型（最小的m>1，使得m除以Sum_{k=1..m}素数（k）^n）。
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
