%I#17 2016年5月15日11:39:30

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

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

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

%N按行读取的不规则三角形，其中第N行包含所有成分N=q+q'与q，q'>0和q==q'（mod 3）的对[q，q']。

%C如果（s，t）是序列中的一对，那么（s+3u，t-3u）也是序列中任意整数u的一对使得s+3u>0和t-3u>0。

%F i）如果n是偶数，n=2k，那么它的对是：（k+3p，k-3p），其中p是一个整数，使得k+3p>0和k-3p>0。ii）如果n是奇数，n=2k+1，则其对是（k+3p+2，k-3p-1），其中p是一个整数，使得k+3p=2>0和k-3p-1>0。

%e表格以n=2处的偶数行开始，如下所示：

%e（1,1）

%e（空）

%e（2,2）

%e（4,1），（1,4）

%e（3,3）

%e（5,2），（2,5）

%p A181633_低：=过程（n）

%p局部L，a，b；

%p L：=[]；

%p表示a从n-1到1乘以-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；

%结束程序：#_R.J.Mathar_，2016年5月14日

%t表[Select[Transpose@{#，n-#}，Mod[First@#，3]=Mod[Last@#，3]&]&@Reverse@Range[1，n-1]，{n，18}]//压扁（*_Michael De Vlieger_，2016年5月15日*）

%Y参考A181634（其中q和q'可以为零），A008611（行长度的一半）。

%K non，tabf，简单

%氧2,3

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

%E由R.J.Mathar_编辑，2016年5月14日