%I#19 2016年2月9日06:23:41

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

%T 1,2,3,4,5,7,8,9,1,2,3,5,7，9,10,1,2,2,3,4，5,6,7，

%U 11,12,1,2,3,4,5,6,7,8,9,10,11,12,13,12,3,5,7,9,11,13,14

%N按行读取的不规则数组：第N行包含（按数字顺序）N的除数小于等于N的正整数和与N互素的正整数。

%C行n包含A073757（n）项。

%C如果取n的除数列表和最小正约化残数系统模n的列表的并集，则每个n>=1，数字1将出现两次。-_Wolfdieter Lang，2016年1月16日

%H Robert Israel，n表，n=1..10003的a（n）

%e 12的除数是：1、2、3、4、6、12。<=12且与12互素的正整数为：1,5,7,11。所以第12行是这两组的并集：1,2,3,4,5,6,7,11,12。

%e不规则三角形T（n，k）开始于：

%电子邮箱1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

%e 1：1

%电子2:12

%e 3:1 2 3

%e 4:1 2 3 4

%e 5:1 2 3 4 5

%e 6:1 2 3 5 6

%电子7:1 2 3 4 5 6 7

%电子8:1 2 3 4 5 7 8

%电子邮箱9:1 2 3 4 5 7 8 9

%e 10:1 2 3 5 7 9 10

%电子邮箱：1 2 3 4 5 6 7 8 9 10 11

%电子邮箱：1 2 3 4 5 6 7 11 12

%电子邮箱：1 2 3 4 5 6 7 8 9 10 11 12 13

%电子邮箱14：1 2 3 5 7 9 11 13 14

%e 15:1 2 3 4 5 7 8 11 13 14 15

%电子邮箱：1 2 3 4 5 7 8 9 11 13 15 16

%电子邮箱：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

%电子邮箱：1 2 3 5 6 7 9 11 13 17 18 19

%e。。。格式由_Wolfdieter Lang_编制，2016年1月16日

%p行：=n->op（选择（t->member（igcd（t，n），[1，t]），[$1..n]））：

%p序列（第（n）行，n=1..30）；#_罗伯特·伊斯雷尔（Robert Israel），2016年1月18日

%t行[n_]：=除数[n]~Union~Select[Range[n]，互质Q[n，#]&]；数组[第15行]//Flatten（*_Jean-François Alcover_，2016年1月18日*）

%Y参考A073757，A133995。

%K nonn，标签

%氧1,3

%A _罗伊查询，2007年10月1日