|
| |
|
| A105210号 |
| a（1）=393；对于n>1，a（n）=a（n-1）+1+a（n-1）的不同素数因子之和，这些素数因子<a（n-l）。编辑 |
|
6
|
|
|
|
393, 528, 545, 660, 682, 727, 728, 751, 752, 802, 1206, 1279, 1280, 1288, 1321, 1322, 1986, 2323, 2448, 2471, 2832, 2897, 2898, 2934, 3103, 3240, 3251, 3252, 3529, 3530, 3891, 5192, 5265, 5287, 5616, 5635, 5671, 5832, 5838, 5990, 6597, 7334, 7549, 7550
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
1,1
|
|
|
评论
|
数学专业。Mag.48（1975）301人们发现“C.W.Trigg、C.C.Oursler、R.Cormier和J.L.Selfridge已经发送了关于问题886的计算[1973年11月]，对此我们只收到了部分结果[1975年1月]。Cormier和Selfridge发送了以下结果：似乎有五个以小于1000的整数开始的序列没有合并。这些序列被执行到10^8或更多。“这五个序列是A003508号,A105210号-A105213号.
这表明，通过选择不同的起始值，可能会获得无限多个不同（非合并）序列。
|
|
|
链接
|
道格·恩格尔，问题886，数学。Mag.，48（1975），57-58。
|
|
|
例子
|
a（2）=528，因为a（1）=393，a（1；最后，1+393+3+131=528。
|
|
|
MAPLE公司
|
对于（numtheory）：p:=proc（n）local nn，ct，s：如果isprime（n）=true，则s：=0否则nn:=convert（factorset（n），list）：ct:=nops（nn）：s：=sum（nn[j]，j=1..ct）：fi:end:a[1]：=393：对于从2到50的n，执行a[n]：=1+a[n-1]+p（a[n-1'）od:seq（a[n]，n=1..50）#Emeric Deutsch公司2005年4月14日
|
|
|
数学
|
a[1]=393；a[n]：=a[n]=a[n-1]+1+加号@@Select[Flatten[Table[#[[1]]，{1}]&&@FactorInteger[a[n-1]]]，#<a[n-1]&&]；表[a[n]，{n，44}](*罗伯特·威尔逊v2005年4月14日*）
a[1]=412；a[n_]：=a[n]=a[n-1]+1+Plus@@Select[Flatten[表[#[[1]]，{1}]&/@FactorInteger[a[n-2]]，#<a[n-1]&]；表[a[n]，{n，43}](*罗伯特·威尔逊v2005年4月14日*）
a[1]=668；a[n_]：=a[n]=a[n-1]+1+Plus@@Select[Flatten[表[#[[1]]，{1}]&/@FactorInteger[a[n-2]]，#<a[n-1]&]；表[a[n]，{n，40}](*罗伯特·威尔逊v2005年4月14日*）
a[1]=932；a[n_]：=a[n]=a[n-1]+1+Plus@@Select[Flatten[表[#[[1]]，{1}]&/@FactorInteger[a[n-2]]，#<a[n-1]&]；表[a[n]，{n，40}](*罗伯特·威尔逊v2005年4月14日*）
nxt[n_]：=n+1+总计[Select[FactorInteger[n][[All，1]]，#<n&]]；嵌套列表[nxt，393，50](*哈维·P·戴尔2019年3月2日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
a105210 n=a105210_列表！！（n-1）
a105210_list=393：地图
（\x->x+1+总和（takeWhile（<x）$a027748_row x））a105210_list
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
