%I#8 2021年3月7日03:06:53

%S 2,29,29,21678,22438724387,225955136264825955,227523，

%电话：204836242048362427523,229091408339211079206324083391229091，

%电话：2,230659624131217187432136171874321360241351230659,22232278522449222798744901876719128492227987448522242432227,2

%N三角形T（N，k）=T（N-1，k）+T（N-l，k-1）+（2*j+7）*prime（j）*T（N-2，k-1。

%H G.C.Greubel，<a href=“/A153657/b153657.txt”>三角形的n=1..50行，展平</a>

%F T（n，k）=T（n-1，k）+T（n-l，k-1）+（2*j+7）*prime（j）*T（n-2，k-1。

%F来自_G.C.Greubel_，2021年3月6日：（开始）

%F T（n，k，p，q，j）=T（n-1，k，p，q，j）+T 1，p，q，j）=T（n，n，p，q，j）=2和（p，q、j）=（2,7,10）。

%F和{k=0..n}T（n，k，p，q，j）=2*prime（j）^（n-1），对于（p，q。

%e三角形开头为：

%e 2；

%e 29、29；

%e 21678，2；

%e 224387、24387、2；

%e 225955136264825955，2；

%e 227523204836242048362427523，2；

%e 229091、40833912、1107920632、40832912、29091、2；

%e 2、30659、62413512、17187432136、171874432136、624135.12、30659,2；

%电子邮箱：232227、85222424、49222798744、901876719128、49221798744、85222724、32227、2；

%tT[n_，k_，p_，q_，j_]：=t[n，k，p，q k-1，p，q，j]+（p*j+q）*素数[j]*t[n-2，k-1，p，q，j]]]；

%t表[t[n，k，2,7,10]，{n，12}，{k，n}]//扁平（*由G.C.Greubel_修改，2021年3月6日*）

%o（鼠尾草）

%o@CachedFunction

%o定义f（n，j）：返回（（3-（-1）^n）/2）*第n素数（j）^（n-1）-2^（（3-

%o定义T（n，k，p，q，j）：

%o如果（n==2）：返回nth_prime（j）

%o elif（n==3和k==2或n==4和2<=k<=3）：返回f（n，j）

%o elif（k==1或k==n）：返回2

%否则：返回T（n-1，k，2,7,10）+T（n-l，k-1，p，q，j）+（p*j+q）*nth_prime（j）*T（n-2，k-1

%o压扁（[[T（n，k，p，q，j）for k in（1..n）]for n in（1..12）]）#_G.C.格鲁贝尔，2021年3月6日

%o（岩浆）

%o f:=func<n，j|圆（（（3-（-1）^n）/2）*n素数（j）^（n-1）-2^（（3-；

%o函数T（n，k，p，q，j）

%o如果n等于2，则返回NthPrime（j）；

%o elif（n eq 3和k eq 2或n eq 4和k eq2或n eq 4和k eq 3）然后返回f（n，j）；

%o elif（k eq 1或k eq n）然后返回2；

%否则返回T（n-1，k，p，q，j）+T（n-1，k-1，p，q，j）+（p*j+q）*NthPrime（j）*T（n-2，k-1，p，q，j）；

%o结束条件：；返回T；

%o端函数；

%o[T（n，k，2,7,10）：k in[1..n]，n in[1..12]]；//_G.C.Greubel，2021年3月6日

%带变量（p，q，j）的Y序列：A153516（0,1,2），A153518）。

%Y参见A009973（29的权力）。

%K non，tabl，简单，少

%O 1，1

%A _Roger L.Bagula，2008年12月30日

%E编辑：G.C.Greubel，2021年3月6日