%I#7 2015年3月14日15:01:44
%S 2,2,3,2,2,3,1,5,3,2,3,5,7,5,2,2,2,2,2,3,3,5,11,7,3,2,2,3,11,7,11,
%T 7,5,3,2,3,5,7,11,13,17,13,11,7,5,12,2,3,5.5,7,11,13,17,13,11,
%U 7,5,3,2,3,5,7,11,13,17,19,23,19,17,13,11,7,5,13,2,2,3,2,5,7,11,13,17,19,23,29,23,19,17,13,11,7,53,2,2
%N按行读取的三角形,其中第N行列出p(1)、p(2)、…、。。。,p(n),p(n-1)。。。,p(1),其中p(i)=第i素数。
%C行n包含2n-1项,每列列出质数A000040。
%C A061802中提到的素数三角形。
%e三角形开始:
%e。。。。。。。。。。。。。。2
%e。。。。。。。。。。。2, 3, 2
%e。。。。。。。。2, 3, 5, 3, 2
%e。。。。。2, 3, 5, 7, 5, 3, 2
%e。。2, 3, 5, 7,11, 7, 5, 3, 2
%t nn=10;模〔{pr=Prime〔Range〔nn〕〕〕,e},压扁〔Table〔e=Take〔pr,n〕;加入[e,反向[Most[e]]],{n,nn}]](*哈维·P·戴尔,2015年3月14日*)
%Y参见A000040、A061802、A066622、A037126。
%K easy、nonn、tabf
%O 1,1号机组
%2008年3月9日,A_Omar E.Pol_
%E编辑:N.J.A.Sloane,2008年4月7日,2008年11月15日
|