显示1-1个结果(共1个)。
第页1
兽性素数(版本1):666后跟0,右端是1或7,或者是一个回文,中间是666,这些数字周围是0,两端是1或7。
+0 8
6661, 16661, 66601, 76667, 700666007, 6660000000001, 666000000000001, 700000666000007, 70000006660000007, 6660000000000000000000000007, 66600000000000000000000000007, 1000000000000066600000000000001
评论
不同于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、16666、166679不包括在这里。
76667是最大的不包含数字“0”的兽性素数。
链接
托尼·帕迪拉和布雷迪·哈兰,最邪恶的数字,数字视频(2018)
数学
e=14;p=666*10^n+1;q=(10^(n+2)+666)*10^ n+1;选择[并集[表[p,{n,2*e}],表[p+6,{n、2*e{],表[C,{n,e}]、表[q+6*10^(2*n+2)+6,},e}]],素数q](*阿尔卡迪乌斯·韦索洛夫斯基,2011年9月21日*)
模块[{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=起始数字/@表[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日*)
搜索在0.003秒内完成
|