|
| |
|
| A229996型 |
| 对于每个正整数m，设u（m）=（d（1），d（2），。。。，d（k））是m的幺正除数。序列（a（n））由连续数m组成，其中d（k”/d（1）+d（k-1）/d（2）+…+d（k）/d（1）是一个整数。 |
|
9
|
|
|
|
1、10、65、130、260、340、1105、1972、2210、4420、8840、9860、15650、20737、32045、41474、44200、51272、55250、64090、75140、82948、103685、128180、207370、207553、221000、256360、352529、414740、415106、512720、532100、705058、759025、813800、829480、830212
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
前10个总和：1，5/2，10/3，17/4，26/5，25/3，50/7，65/8，82/9，13，因此a（1）=1，a（10）=13。
|
|
|
数学
|
z=1000；r[n_]：=选择[Divisors[n]，GCD[#，n/#]==1&]；k[n_]：=长度[r[n]]；
t[n_]：=表[r[n][[k[n]+1-i]]/r[n][[k[1]+i-1]]，{i，1，k[n]}；
s=表格[Plus@@t[n]，{n，1，z}]；a[n_]：=如果[IntegerQ[s[[n]]]，1，0]；u=表[a[n]，{n，1，z}]；压扁[位置[u，1]](*A229996型*)
usigma2[n_]：=如果[n==1，1，Times@@（1+Power@@@FactorInteger[n]^2）]；seqQ[n_]：=可除[usigma2[n]，n]；选择[范围[10^6]，seqQ](*阿米拉姆·埃尔达尔2018年6月16日*
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
