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

%编号：3,4343344333433433400330403333433340334033433403334403，

%电话：40343404343003434033000433003430403330433，

%电话：333433334043334333334403343303343343433400033403003043403433430303430330333

%N只有（十进制）数字0、3和4的素数。

%C所有术语以“3”结尾。这可以用来加速给定的程序。

%C A020461是一个子序列_文森佐·利班迪（Vincenzo Librandi），2015年7月23日

%H Alois P.Heinz，n的表格，n=1..10000的a（n）</a>

%H<a href=“/index/Pri#PrimesWithDigits”>为给定集合中具有数字的素数项建立索引。

%t选择[Prime[Range[5 10^4]]，Complement[Integer Digits[#]，{3，4，0}]=={}&]（*_Winenzo Librandi_，2015年7月23日*）

%t选择[FromDigits/@Tuples[{0,3,4}，6]，PrimeQ]（*Harvey P.Dale_，2020年3月21日*）

%t选择[10#+3&/@FromDigits/@Tuples[{0,3,4}，5]，PrimeQ]（*哈维·P·戴尔，2022年5月2日*）

%o（PARI）a（n，list=0，L=[0,3,4]，reqpal=0）={my（t“，”）；n--||return（t）））}\\为当前PARI版本更新了语法。-_M.F.Hasler，2015年7月25日

%o（Magma）[p:p在PrimesUpTo（5*10^5）| Set（Intseq（p））子集[3,4,0]]中；//_文森佐·利班迪（Vincenzo Librandi），2015年7月23日

%o（PARI）｛forprime（p=3,1e6，p%10==3&&！setminus（Set（digits（p）），[3,4]）&&print1（p“，”）｝\\[0]计算为false。-_M.F.Hasler，2015年7月25日

%Y Cf.仅包含数字（3,4，k）的素数：此序列（k=0）、A199341（k=1）、A199642（k=2）、Al99345（k=5）、A1999346（k=6）、A19347（k=7）、A199.348（k=8）和A199349（k=9）。

%Y参见A020449-A020472、A199325-A199329。

%Y参考A058429、A058430。

%K nonn，基础

%O 1,1号机组

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