%I#6 2013年11月21日12:48:16

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

%T 1,8,7,4,7,5,5,9,9,4,3,1,5,8,8,7,1,5,1,4,6,0,6,2,3,7,6,5,0,9，

%U 3,4,8,3,0,8,6,3,9,1,4,0,9,3,3,1,1,5,2,9,2,5,7,7,1,9,8,0,6,7,5,1,6

%N a（N）=Pi的第p位数字，其中p=第N个素数。

%C Pi的质数。

%第五素数是11。圆周率的第11位是5，是序列中的第5项。

%t使用[{nn=600}，Pick[RealDigits[Pi，10，nn][1]，If[PrimeQ[#]，1,0]和/@Range[nn]，1]]（*哈维·P·戴尔，2012年4月22日*）

%o（PARI）\primeth.gp primeth（n）={default（realprecision，1000）；p=Str（Pi*10^999）；默认值（realpecision，28）；forprime（x=2，n，print1（mid（p，x，1）“，”）}mid（Str，s，n）={v=“”；tmp=Vec（Str）；ln=长度（tmp）；for（x=s，s+n-1，v=concat（v，tmp[x]）；）；return（v）}

%K easy、nonn、base

%氧2,2

%A _奇诺·希利亚德，2004年1月22日