%I#16 2017年9月22日03:50:47

%S 1,1,1,2,1,1,1,1,3,1,2,4,1,3,1,1,5,1,1,1,1,2,6,1,1,7,1,1,1,5,1,2,4，8，

%T 1,1,1,3,3,9,1,1,2,1,5,10,1,1,7,1,1,11,1,1,1,2,2,4,12,5,1,13,1，

%U 3,9,1,2,1,7,14,1,1,1,2,5,15,1,2,4,8,16,1,11,11,1,17,1,7,1,1,2,3

%N行读取的不规则数组：第N行包含N的每对连续正除数的GCD。

%C每行有d（n）-1项，其中d（n）是n的正除数。列出的第一行是第2行。

%H Michael De Vlieger，n的表格，a（n）表示n=2..15955（第2行）

%e 20的正因子为1、2、4、5、10、20。GCD（1,2）=1。GCD（2,4）=2。GCD（4.5）=1。GCD（5,10）=5。GCD（10,20）=10。所以第20行是（1,2,1,5,10）。

%e摘自R.J.Mathar_，2009年7月20日：（开始）

%e桌子开始

%第1页

%第1页

%e 1、2

%第1页

%e 1、1、3

%第1页

%e 1、2、4

%e 1、3

%e 1,1,5

%第1页

%e 1、1、2、6

%e（完）

%p A136178行：=proc（n）本地dvs；dvs:=排序（convert（numtheory[divisors]（n），list））；seq（gcd（op（d-1，dvs），op（d，dvis）），d=2..nops（dvs；结束：序列（A136178行（n），n=1..70）；#_R.J.Mathar，2009年7月20日

%t表[Map[GCD@@#&，Partition[Divisors@n，2，1]]，{n，2,36}]//Flatten（*_Michael De Vlieger_，2017年9月21日*）

%o（PARI）行（n）=我的（d=除数（n））；向量（d-1，k，gcd（d[k]，d[k+1））；

%o tabf（nn）=用于（n=2，nn，打印（行（n）））；\\_米歇尔·马库斯，2017年9月22日

%Y参考A136179、A136180、A136181。

%K nonn，标签

%氧2,4

%A _罗伊查询，2007年12月19日

%E关键字：tabl替换为关键字：tabf by R.J.Mathar_，2009年7月22日

%E由R.J.Mathar_于2009年7月20日扩展至第10行以外