%I#19 2016年4月5日23:01:22

%S 1,2,4,1,2,3,6,1,2,4,8,1,3,9,1,2,5,10,12,3,4,6,12,1,2,7,14,1,3,15,15，

%T 1,2,4,8,16,1,2,3,6,9,18,1,2,4,5,10,20,1,3,7,21,1,2,11,22,1,2,2,3,4,6,8，

%U 12,24,1,5,25,1,2,13,26,1,3,9,27,1,2,4,7,14,28,1,2,3,5,6,10,15,30,12,4,8,16,32,13,12,3,12,17,34

%N行读取的不规则三角形：第N行列出第N个复合数的除数。

%C A027750的子序列。

%C行总和为A073255。

%C右边框给出A002808。

%H Ilya Gutkovskiy，扩展示例</a>

%H伊利亚·古特科夫斯基（H Ilya Gutkovskiy），图形添加</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/CompositeNumber.html“>复合编号</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Divisor.html“>除数</a>

%H<a href=“/index/Di#divisors”>与数字除数相关的序列的索引项</a>

%e三角形开始：

%e 1、2、4；

%e 1、2、3、6；

%e 1、2、4、8；

%e 1、3、9；

%e 1、2、5、10；

%e 1、2、3、4、6、12；

%e 1、2、7、14；

%e 1、3、5、15

%e 1、2、4、8、16；

%e 1、2、3、6、9、18；

%e 1、2、4、5、10、20；

%e 1、3、7、21；

%e 1、2、11、22；

%e 1、2、3、4、6、8、12、24；

%e 1、5、25；

%e 1、2、13、26；

%e 1、3、9、27；

%e 1、2、4、7、14、28；

%e 1、2、3、5、6、10、15、30；

%e 1、2、4、8、16、32；

%e 1、3、11、33；

%e 1、2、17、34；

%e。。。

%t展平[表[除数[复合[n]]，{n，22}]]

%o（PARI）tabf（nn）=复合（c=1，nn，打印（除数（c），“，”））；\\_米歇尔·马库斯（Michel Marcus），2016年2月21日

%Y参考A002808、A027750、A035004（行长）、A133021、A133031、A138881。

%K nonn，标签

%O 1,2号机组

%A _Ilya Gutkovskiy_，2016年2月21日