%I#29 2022年9月8日08:45:17

%S 6,4,6,14,21,35,10,15,25,35,26,39,65,91143,22,33,55,77121143,38,57，

%电话：95133209247323,34,51,85119187221289323,58,87145203319，

%电话：377493551667,46,6915161253299391437529667,74111185259407

%N三角形T（N，k）=素数（k）乘以素数排列的（3，2，7，5，13，11，…）的第N项。

%C定义辅助序列3、2、7、5、13、11、19、17、29、23、37、31、43，。。如果n是偶数，则b（n）=素数（n-1）；如果n是奇数，则b（n）=prime（n+1）。则T（n，k）=b（n）*素数（k）。

%e三角形开始：

%e 2*3；

%e 2*2，3*2；

%e 2*7、3*7、5*7；

%e 2*5、3*5、5*5、7*5；

%e 2*13、3*13、5*13、7*13、11*13；

%e 2*11、3*11、5*11、7*11、11*11、13*11；

%e 2*19、3*19、5*19、7*19、11*19、13*19、17*19；

%e 2*17、3*17、5*17、7*17、11*17、13*17、17*17、19*17；

%e 2*29、3*29、5*29、7*29、11*29、13*29、17*29、19*29、23*29；

%e 2*23、3*23、5*23、7*23、11*23、13*23、17*23、19*23、23*23、29*23；

%e。。。

%e（电子）=

%e 6；

%e 4、6；

%e 14,21,35；

%e 10、15、25、35；

%e 26,39,65,91143；

%e 22,33,55,77121143；

%电子邮箱38,57,95133209247323；

%e 34,51,85119187221289323；

%e 58,87145203319377493551667；

%电子邮箱：46,69115161253299391437529667；

%e。。。

%t t[n_，k_]：=（如果[EvenQ[n]，（素数[n-1]），素数[n+1]]）素数[k]；表[T[n，k]，{n，1，15}，{k，1，n}]//Flatten（*Vincenzo Librandi_，2018年12月28日*）

%o（PARI）T（n，k）=如果（n%2，素数（n+1），素数数（n-1））*素数（k）；\\_米歇尔·马库斯，2018年12月28日

%o（岩浆）/*作为三角形*/[[（IsOdd（n）选择NthPrime（n+1），否则选择NthPrime（n-1）））*NthPrice（k）：k in[1..n]]：n in[1..15]]；//_文森佐·利班迪（Vincenzo Librandi），2018年12月28日

%Y参见A105157（行总和）。

%K non，less，表

%O 1，1

%A _Roger L.Bagula，2005年4月10日