%I#18 2022年9月8日08:46:00

%S 7,11,17,7110110770111171177770017777171000710111，

%电话：1017710711107711107111117111711117711701117171177717011，

%电话：17077171071711717707700170117011770177070707171171171171717077171171777017771177711107101110111711117

%N只包含数字“0”、“1”和“7”的素数。

%H Harvey P.Dale，n的表，n=1..10000的a（n）</a>

%H詹姆斯·梅纳德和布雷迪·哈兰，<a href=“https://www.youtube.com/watch？v=eeoBCS7IEqs“>没有7</a>的Primes，Numberphile视频（2019）。

%t f[i_，nn_]：=选择[Flatten[Table[FromDigits/@（Join[{i}，#]&/@Tuples[{0,1,7}，n]），{n，0，nn}]]，PrimeQ]；工会[加入[f[1,6]，f[7,6]]（*哈维·P·戴尔，2011年11月19日*）

%t选择[Prime[Range[2 10^4]]，Complement[Integer Digits[#]，{0，1，7}]=={}&]（*_Winenzo Librandi_，2020年1月16日*）

%o（PARI）a（n，list=0，L=[0,1,7]）={for（d=1,1e9，my（t，u=vector（d，i，10^（d-i））~）；forvec（v=vector 2015年7月26日由M.F.Hasler发布的版本

%o（岩浆）[p:p在PrimesUpTo（80000）|Intseq（p）子集{0,1,7}]；//_文森佐·利班迪（Vincenzo Librandi），2020年1月16日

%Y参见A020449-A020472、A036953、A260044、A260267-A260271、A199325-A199329、A061247、A199340-A199349。

%K nonn，基础

%O 1,1号机组

%A _M.F.Hasler，2011年11月5日