%I#17 2016年12月10日13:16:22
%S 11,191011091911999119999110091911091110919011999001,
%电话:901190919109919999011000910091100911009911909,
%电话:1900119091991919991900190011900199019190199901901910099101991099911999190999109991919990199991
%N只包含数字“0”、“1”和“9”的素数。
%H Alois P.Heinz,n的表格,n=1..10000的a(n)</a>
%H<a href=“/index/Pri#PrimesWithDigits”>为给定集合中具有数字的素数项建立索引</a>
%t选择[FromDigits/@Tuples[{0,1,9},5],PrimeQ](*哈维·P·戴尔,2016年12月10日*)
%o(PARI)A199329(n=50,show=0,L=[0,1,9])={对于(d=1,1e9,my(t,u=向量(d,i,10^(d-i))~);对于vec(v=向量(d,i,[1+!(L[1]||(i>1&i<d)),#L]),ispseudoprime(t=vecextract(L,v)*u)|next;show&print1(t“,”);n--|return(t))))}\\语法由M.F.Hasler于2015年7月25日更新为较新的PARI版本
%Y参见A020449-A020472、A036953、A260044、A260267-A260271、A199325-A199327、A061247、A199340-A199349。
%K nonn,基础
%O 1,1
%A _M.F.Hasler,2011年11月5日
|