登录
A130776号
对n进行编号,使n和n+1的适当除数之和等于n或n+1。
0
1, 2, 3, 4, 6, 7, 16, 28, 31, 38, 127, 256, 278, 469, 1298, 3477, 7298, 7525, 8191, 13969, 19909, 26738, 31492, 65536, 99381, 131071, 357698, 524287, 20742482, 33550336, 772499089, 1959272066
抵消
1,2
链接
Eric Weistein的《数学世界》,等分除数.
例子
16有适当的除数1、2、4和8。17有适当的除数1。这些除数之和是16,因此16在序列中。
数学
选择[Range[1000000],Divisor Sigma[1,#]+Divisor西格玛[1,#+1]-2*#-1==#|| Divisor sigma[1,#]+Divior Sigma[1,#1]-2*#-1=#+1&]
lst={};d1=d2=1;Do[d2=DivisorSigma[1,n+1];d=d1+d2-2n-1;如果[d==n||d==n+1,打印@n;附录[lst,n]];d1=d2,{n,2*10^9}];第一次(*罗伯特·威尔逊v,2007年7月27日*)
关键词
非n,更多
作者
J.M.贝戈2007年7月14日
扩展
编辑、更正和扩展人斯特凡·斯坦纳伯格2007年7月16日
a(29)-a(32)来自罗伯特·威尔逊v2007年7月27日
状态
经核准的