%I#7 2017年8月23日09:55:41

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

%T 9,8,7,4,2,9,8,17,6,3,11,8,7,16,5,2,13,10,7,65,4,12,12,9,6,5,1,3，

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

%N不规则三角形T（N，k）由行读取，1<=k<=N：T（N、1）=A020900（N-k+1）-（N-k+1），T（N）=max（0，T（N-1，k-1）-1）。

%H Michael De Vlieger，n的表格，a（n）表示n=1..13692（第1行）。

%F行长度=A107347（n+1）。

%e三角形开始：

%欧洲（n）

%e 1:0

%电子2:1

%电子3:1

%e 4：2

%e五：3 1

%e 6:3 2

%电子7:4 2 1

%e 8:4 3 1

%电子9：5 3 2

%e 10:6 4 2 1

%电子11:7 5 3 1

%e 12:9 6 4 2

%电子13：9 8 5 3 1

%电子14：9 8 7 4 2

%电子15：9 8 7 6 3 1

%电话16:11 8 7 6 5 2

%电话17：13 10 7 6 5 4 1

%电子邮箱18：12 12 9 6 5 4 3

%电话19：13 11 11 8 5 4 3 2

%电话20：14 12 10 7 4 3 2 1

%e。。。

%tT[n_，k_]：=t[n，k]=如果[k==1，PrimePi[2素数@#]-#&[n-k+1]，最大值[0，t[n-1，k-1]-1]]；映射[DeleteCase[#，0]&，表[T[n，k]，{n，20}，{k，n}]//展平（*或*）

%tT[n_，k_]：=t[n，k]=如果[k==1，PrimePi[2素数@#]-#&[n-k+1]，最大值[0，t[n-1，k-1]-1]]；表[T[n，k]，{n，60}，{k，计数[Range[#+1，2#-1]&@Prime[n+1]，s_/；PrimeOmega@s==2&EvenQ@s]}]//扁平（*_Michael De Vlieger_，2017年7月21日*）

%Y参考A001221、A002110、A006530、A020900、A053669、A107347、A288813。

%K non，tabf，简单

%O 1,4型

%2017年7月21日，A _Michael De Vlieger_