%I#21 2020年2月4日21:41:39

%S 3,4,6,7,8,10,11,12,13,15,16,17,18,19,21,22,23,24,25,26,29,30,31,32，

%电话：33、34、36、37、38、39、40、41、43、45、46、47、49、50、51、52、53、55、56、57、58、59、60，

%U 61,62,63,64,66,67,68,69,70,71,72,73,74,76,78,79,80,81,82,83,84,85

%对于整数m>=k>=1，N在c｛m，k｝中出现一次，其中c｛m，k｝=（（N+k）！（n-k+1））/（k）！（n+1）！）。

%C在加泰罗尼亚三角形A009766中唯一出现的整数。

%H D.F.Bailey，<a href=“http://www.maa.org/sites/default/files/D11233._F._Bailey.pdf“>1和1的计数安排，《数学杂志》，69（1996）：128-131。

%H Nathaniel Benjamin、Grant Fickes、Eugene Fiorini、Edgar Jaramillo Rodriguez、Eric Jovinelly、Tony W.H.Wong、<a href=“https://www.emis.de/journals/JIS/VOL22/Fiorini/fiorini3.html“>加泰罗尼亚三角中的素数和完全幂，J.Int.Seq.，第22卷（2019年），第19.7.6条。

%H Eric W.Weisstein，<a href=“http://mathworld.wolfram.com/CatalansTriangle.html“>加泰罗尼亚三角</a>

%t块[{t，nn=85}，t[n_，k_]：=t[n，k]=其中[k==0，1，k>n，0，True，t[n-1，k]+t[n、k-1]]；Rest@Complement[Range@nn，Union@Flatten@Table[T[n，k]，{n，2，nn}，{k，2，n}]]（*_Michael De Vlieger_，2020年2月4日，继Jean-François Alcover_ at A009766*之后）

%o（Python）

%o#打印小于k的唯一整数

%o定义Unique_Catalan_Triangle（k）：

%o t=[]

%o t.追加（[]）

%o t[0].追加（1）

%o对于范围（1，k）中的h：

%o t.追加（[]）

%o t[0].追加（1）

%o对于范围（1，k）内的i：

%o对于范围（0，k）中的j：

%o如果i>j：

%o t[i].append（0）

%o其他：

%o t[i].追加（t[i-1][j]+t[i][j-1]）

%o l=[]

%o对于范围（0，k）中的r：

%o表示范围（0，k）内的s：

%o l.追加（t[r][s]）

%o唯一=[]

%o表示n in l：

%o如果n<=k且l.count（n）==1：

%o唯一.append（n）

%o打印排序（唯一）

%A007401的Y子序列，是A000096的补充。

%Y参考A009766，A275586（补充）。

%K容易，不是

%O 1,1号机组

%A _Edgar Jaramillo Rodriguez、Nathaniel Benjamin、_Eric Jovinelly、_Eugene Fiorini，2016年7月29日