|
|
A187207号 |
| 由行读取的不规则三角形,其中第n行列出了k=A000005美元(n) n的除数按降序排列,然后是它们的绝对差值列表,直到k-1。 |
|
5
|
|
|
1, 2, 1, 1, 3, 1, 2, 4, 2, 1, 2, 1, 1, 5, 1, 4, 6, 3, 2, 1, 3, 1, 1, 2, 0, 2, 7, 1, 6, 8, 4, 2, 1, 4, 2, 1, 2, 1, 1, 9, 3, 1, 6, 2, 4, 10, 5, 2, 1, 5, 3, 1, 2, 2, 0, 11, 1, 10, 12, 6, 4, 3, 2, 1, 6, 2, 1, 1, 1, 4, 1, 0, 0, 3, 1, 0, 2, 1, 1, 13, 1, 12, 14, 7, 2, 1, 7, 5, 1, 2, 4, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
三角形开始:
[1];
[2, 1], [1];
[3, 1], [2];
[4, 2, 1], [2, 1], [1];
[5, 1], [4];
[6, 3, 2, 1], [3, 1, 1], [2, 0], [2];
[7, 1], [6];
[8,4,2,1],[4,2,1],[2,1],[1];
[9, 3, 1], [6, 2], [4];
[10, 5, 2, 1], [5, 3, 1], [2, 2], [0];
每行的术语可以形成一个正三角形,例如第10行:
10、5、2、1;
. 5, 3, 1;
. 2, 2;
. 0;
|
|
MAPLE公司
|
带有(数字理论):
DD:=l->[seq(abs(l[i]-l[i-1]),i=2..nops(l))]:
T: =proc(n)局部l;
l: =排序([除数(n)[]],`>`);
seq((DD@@i)(l)[],i=0..nops(l)-1);
结束时间:
|
|
数学
|
行[n_]:=(dd=除数[n];表[Differences[dd,k]//Reverse//Abs,{k,0,Length[dd]-1}]);表[行[n],{n,1,20}]//展平(*Jean-François Alcover公司2016年5月18日*)
|
|
交叉参考
|
|
|
关键词
|
非n,标签,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|