%I#11 2015年8月12日02:20:05

%S 1,1,1,2,1,1,4,1,6,5,1,10,12,7,16,3,8,1,18,1,22,9,1,28,13,24，

%电话：1,30,11,20,17,11,36,1,40,19,1,42,25,34,1,46,15,14,23,1,52,21,26,27，

%U 32,1,1,58,1,60,29,1,66,31,48,1,70,33,38,35,1,72,37,64,39,44,1,78,49,54,43

%N素数四面体，按行读取。

%C唯一四面体的每个三角形层都以1开头，从不使用除1以外的任何值，该值已经出现在这个或更早的级别上，总是使用最小可用整数，使得每两个连续条目的和都是素数。第n级的值的数目是第n个三角形数A000217（n）=C（n+1,2）=n（n+1）/2=0+1+2++n.通过第n级的值的数量是第n个四面体数A000292（n）=C（n+2,3）=n（n+1）（n+2）/6。

%D R.K.Guy，《数论中未解决的问题》，第二版，纽约：Springer-Verlag出版社，第106页，1994年。

%D Kenney，M.J.《学生数学笔记》，NCTM新闻公报。1986年11月。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/PrimeTriangle.html“>素数三角形</a>。

%F a（n）将三维表格展平，以便首先出现级别1（顶点，仅值1），然后出现级别2（值1、1、2），然后是级别3。。。对于每一层，逐行读取三角形。

%e四面体开始

%e（电子）=================

%第1页

%e（电子）=================

%第1页

%e 1..2

%e（电子）=================

%第1页

%e 1..4

%e 1..6..5

%e（电子）=================

%第1页

%e 1.10（电子1.10）

%e 1.12..7

%e 1.16..3..8

%电子=================

%第1页

%e 1.18段

%e 1.22..9

%e 1.28.12.24

%e 1.30.11.20.17

%e（电子）=================

%p srch：=proc（a）局部res；分辨率：=2；当为true时，如果isprime（res+op（-1，a））和not（res-in-a），则执行RETURN（res）；fi；res：=res+1；od；结束：a:=[]；对于从1到10的级别，对从1到级别的行执行do对从1至行的列执行do，如果col=1，则anxt:=1；否则anxt：=srch（a）；fi；printf（“%d，”，anxt）；a:=[op（a），anxt]；od；od；od；编号_R.J.Mathar，2007年1月13日

%Y参考A000040、A000217、A000292、A036440排列主金字塔第n行的方式数量，A051239、A051237，按行读取词汇最早的主金字塔。

%K easy、nonn、tabf

%O 1,4型

%A _乔纳森·沃斯帖子_，2006年11月13日

%E由R.J.Mathar_更正和扩展，2007年1月13日