%I#19 2016年11月8日19:49:33

%S 1,1,3,0,0,3,2,4,1,4,6,0,2,3,3,06,5,2,5,7,1,4,1,7,0,6,3,6,6，

%温度：0,9,8,2,5,5,2,8,10,1,7,4,4,7,10,12,12,0,9,16,6,3,9,0,12,11,8,5,8,8，

%U 2,11,13,10,4,7,4,10,13,15,0,12,3,9,6,6

%N不规则三角形T（N，k），其中第N行包含组成N=a+b的所有对[a，b]为非负对，其中a==b（mod 3）。

%C行长度为2*A008611（n）。行总和为n*A008611（n）_R.J.Mathar，2016年5月13日

%e 1，1；

%e 3，0，0，3；

%e 2，2；

%e 4、1、1、4；

%e第6、0、3、3、0、6条；

%e 5、2、2、5；

%e第7、1、4、4、1、7条；

%e第9、0、6、3、3、6、0、9条；

%e第8、2、5、5、2、8条；

%e第10、1、7、4、4、7、1、10条；

%e第12、0、9、3、6、6、3、9、0、12条；

%e 11、2、8、5、5、8、2、11；

%e 13、1、10、4、7、7、4、10、1、13；

%e第15、0、12、3、9、6、6、9、3、12、0、15条；

%e第14、2、11、5、8、8、5、11、2、14条；

%p A181634_低：=过程（n）

%p局部L，a，b；

%p L：=[]；

%p表示a从n到0，乘以-1 do

%p b:=n-a；

%p如果modp（a，3）=modp（b，3），则

%p L：=[op（L），a，b]；

%p end if；

%p端do：

%p L；

%p端程序：

%p代表n从2到18 do

%p打印（op（A181634_row（n））；

%截止日期：#R.J.Mathar_，2016年5月13日

%t如果[First@#==Last@#&@Take[#，2]，Join[Reverse@Drop[#，2]，#]，Join[Creverse@#，#]]&/@Function[n，Flatten@Select[Transpose@{n-#，#}，Mod[First@#，3]==Mod[Last@#，2]&]&@Range[Ceiling[n/2]，n]]/@Range[2，16]//Flatten（*Michael De Vlieger_，2016年5月13日*）

%K nonn、easy、tabf、less

%氧2,3

%A Florentin Smarandache（smarand（AT）unm.edu），2010年11月3日

%E编辑：R.J.Mathar_，2016年5月13日