%I#46 2023年4月3日10:36:12

%S 6661166616660176667700666007666000000000016660000000001，

%电话70000066000007700000066600000076660000000000000007，

%U 666000000000000000000000000071000000000000066600000000000001

%N野兽素数（版本1）：要么是666后跟0，右端是1或7，要么是中间有666的回文，这些数字周围是0，两端是1或7。

%C与A131645的不同之处在于，此处不包括26669、46663、56663、66617、66629、66643、66653、66683、66697、96661、96667、106661、106663、106669、116663、146669、166601、166603、166609、166613、166619、166627、166631、166643、166657、166667、166669、166679。

%C76667是最大的不包含数字“0”的兽性素数。

%H Charles R Greathouse IV，n表，n=1..33的a（n）</a>

%H Chris Caldwell，《主要词汇表》，<a href=“https://t5k.org/glossary/xpage/BastlyPrime.html“>野兽素数</a>

%H G.L.Honaker，Jr.和Chris Caldwell，<a href=“https://t5k.org/curios/cpage/2774.html“>顶级古玩！6661</a>

%H R.Ondrejka，<a href=“http://www.utm.edu/research/primes/lists/top_ten/“>前十名：基本配置目录（2001年5月），第5页

%托尼·帕迪拉和布雷迪·哈兰，<a href=“https://www.youtube.com/watch？v=zk_Q9y_LNzg“>最邪恶的数字，数字爱好者视频（2018）

%H Eric Weistein的《数学世界》，<a href=“http://mathworld.wolfram.com/BeastNumber.html“>野兽编号</a>

%t e=14；p=666*10^n+1；q=（10^（n+2）+666）*10^ n+1；选择[Union[表[p，{n，2*e}]，表[p+6，{n、2*e{]，表[C，{n,e}]、表[q+6*10^（2*n+2）+6，}n，e}]]，PrimeQ]（*_Arkadiusz-Wesolowski_，2011年9月21日*）

%t模块[{nn=35，bp1，bp2，bp3，bp4}，bp1=FromDigits/@Table[Join[PadRight[{6,6,6}，n1,0]，{1}]，{n1,3，nn}]；bp2=起始数字/@表格[Join[PadRight[{6,6,6}，n2,0]，{7}]，{n2,3，nn}]；bp3=FromDigits/@表格[Join[PadRight[{1}，n3,0]，{6,6,6}，PadLeft[{1{，n3，0]]，{n3,1，nn/2}]；bp4=起始数字/@表[Join[PadRight[{7}，n3,0]，{6,6,6}，PadLeft[{7{，n3，0]]，{n3,1，nn/2}]；选择[Sort[Join[bp1，bp2，bp3，bp4]，PrimeQ]]（*哈维·P·戴尔，2017年1月18日*）

%Y参考A046720、A051003、A131645、A164968、A196023、A138563、A186630、A186538、A156166、A186521。

%K nonn、base、dumb

%O 1,1号机组

%A_Arkadiusz Wesolowski，2011年2月12日

%E编辑：N.J.A.Sloane，2011年2月12日

%E a（10）-a（12）摘自Charles R Greathouse IV，2011年2月12日