%I#64 2020年8月14日13:40:26

%序号2,7,13,19,23,29,37,43,47,53,61,71,73,79,89,97101103107113131，

%电话137139149151163167173181193199223227222339251，

%电话：257263269271281293307311313317337347349359373

%N素数p，使得pi（p）不是素数。

%C素数素数（k），使A049076（k）=1，按递增的k.-R.J.Mathar_排序，2014年1月28日

%C素数A000040中A006450（带素数索引的素数）的补码。

%D C.Kimberling，《分形序列和间隔》，《阿尔斯组合》，第45卷，第157页，1997年。

%H R.Zumkeller，n表，n=1..1000的a（n）</a>

%H Lubomir Alexandrov，<a href=“http://arxiv.org/abs/math/9811096“>关于非符号素数分布</a>，arXiv:math/99811096[math.NT]，1998。

%H N.Fernandez，<a href=“http://www.borve.org/primeness/FOP.html“>素性阶，F（p）</a>

%H N.Fernandez，素数顺序

%F A137588（a（n））=n；a（n）=A000040（A018252（n））_Reinhard Zumkeller_，2008年1月28日

%F A000040=A007821 U A006450.-_Juri-Stepan Gerasimov，2009年9月24日

%F A175247 U{a（n）；n>1}=A000040。{a（n）}={2}U{素数（A000040）与复合指数（A002808）}.-_雅罗斯拉夫·克里泽克（Jaroslav Krizek），2010年3月13日

%非素数幂上的F G.F:和{k>=1}素数（k）*x^k-素数_Benedict W.J.Irwin，2016年6月11日

%p A007821：=proc（n）ithprime（A018252（n））；结束程序：#R.J.Mathar，2012年7月7日

%t素数[Select[Range[75]！PrimeQ[#]&]]（*_Robert G.Wilson v_，2004年3月15日*）

%t使用[{nn=100}，Pick[Prime[Range[nn]]，Table[If[PrimeQ[n]，0,1]，{n，nn}]，1]]（*_哈维P.戴尔，2020年8月14日*）

%o（哈斯克尔）

%o a007821=a000040。a018252号

%o a007821_list=地图a000040 a018252_list

%o——Reinhard Zumkeller，2013年1月12日

%o（PARI）表示素数（p=2，1e3，if（！isprime（primepi（p）），print1（p，“，”））\\_Felix Fröhlich_，2014年8月16日

%Y参见A049076、A049078、A0490079、A049080、A0490081、A058322、A05832、A058352、A05.8326、A058317、A05832.8、A093046、A006450。

%Y设A=素数A000040，B=非素数A018252。二级化合物为AA=A006450，AB=A007821，BA=A078782，BB=A102615。三级化合物AAA，AAB。。。，BBB为A038580、A049078、A270792、A102617、A27079、A27075、A2701796和A102616。

%K nonn公司

%O 1,1号机组

%A Monte J.Zerger（mzerger（AT）cc4.adams.edu），_百灵金伯利_

%E编辑：M.F.Hasler_，2015年7月31日