使用[{nn=600}，选择[RealDigits[Pi，10，nn][1]，如果[PrimeQ[#]，1，0]和/@Range[nn]，1]] (*发件人 ]] (* _哈维·P·戴尔,_,2012年4月22日*）

OEIS服务器: https://oeis.org/edit/global/2062

_西诺·希利亚德(希尔西诺368(自动变速箱)gmail公司.通用域名格式),_,2004年1月22日

OEIS服务器: https://oeis.org/edit/global/1955

编辑

经核准的

使用[{nn=600}，Pick[RealDigits[Pi，10，nn][1]]，If[PrimeQ[#]，1，0]和/@Range[nn]，1]]（*摘自Harvey P.Dale，2012年4月22日*）

经核准的

编辑

容易的,非n,基础,新的

Cino Hilliard（希尔西诺368（AT）hotmail邮件gmail公司.com），2004年1月22日

a（n）=Pi的第p位，其中p=第n素数。

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

2,2个

Pi的质数。

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

（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）}

容易的,非n,基础

Cino Hilliard（hillcino368（AT）hotmail.com），2004年1月22日

经核准的