A239939-OEIS公司

A239939型

一对（m，n）的成员，其中σ（m）=σ（n）=∑（n-m），m<n其中σ=A000203号.

1288, 2773, 1485, 2773, 5775, 11903, 6128, 11903, 8008, 19693, 11685, 19693, 16744, 36049, 19305, 36049, 21896, 47141, 25245, 47141, 24472, 52687, 28215, 52687, 26488, 61993, 35505, 61993, 32620, 78061, 45441, 78061, 37352, 80417, 43065, 80417, 39928, 85963

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

抵消

1,1

序列的属性：

序列的形式是a1，a1+a2，a2，al1+a1，al3，a3+a4，a4，al3+a4、a5，a5+a6，a6，。。。其中{a1，a2，a3，…}=A239436型是一对（m，n）的成员，即σ（m）=σ（n）=∑（n+m），其中成员a1+a2，a3+a4，a5+a6，。。。重复两次。

链接

米歇尔·拉格诺，n=1..38时的n，a（n）表

例子

这对（12882773）是按顺序排列的，因为σ（1288）=σ（2773）=2880，σ（773-1288）=∑（1485）=2880。

数学

a[n1_，n2_]：=（t=表[{DivisorSigma[1，n]，n}，{n，n1，n2}]//排序；s=选择[Split[t，#1[[1]]==#2[[1]]，Length[#]>=2&]；f[lst_]：=选择[Table[{lst[[i]]，lst[j]}，}i，1，Length[lst]-1}，｛j，i+1，Lengton[lst]}]//展平[#，1]&，#[[1，1]]==除数Sigma[1，#[[1,2]]-#[2,2]]&]；选择[f/@s，#！={}&]）；Flatten[a[1，10^5]，2][[All，2]]（*Jean-François Alcover的程序，适用于此序列。参见A239436型*)

交叉参考

囊性纤维变性。A000203号,A239436型.

上下文中的序列：A232253型 A140914号 A239436型*A179573号 A264243号 A020401号

相邻序列：A239936型 2009年2月 A239938型*A239940型 2009年2月29日 A239942型

关键字

非n

作者

米歇尔·拉格诺2014年3月31日

状态

经核准的