%I #17 Dec 10 2016 13:16:22
%S 11,19,101,109,191,199,911,919,991,1009,1019,1091,1109,1901,1999,9001,
%T 9011,9091,9109,9199,9901,10009,10091,10099,10111,10909,11119,11909,
%U 19001,19009,19919,19991,90001,90011,90019,90191,90199,90901,90911,91009,91019,91099,91199,91909,99109,99119,99191,99901,99991
%N Primes with digits '0', '1' and '9' only.
%H Alois P. Heinz, <a href="/A199329/b199329.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#PrimesWithDigits">Index to entries about primes with digits in a given set</a>
%t Select[FromDigits/@Tuples[{0,1,9},5],PrimeQ] (* _Harvey P. Dale_, Dec 10 2016 *)
%o (PARI) A199329(n=50,show=0,L=[0,1,9])={for(d=1,1e9,my(t,u=vector(d,i,10^(d-i))~);forvec(v=vector(d,i,[1+!(L[1]||(i>1&&i<d)),#L]),ispseudoprime(t=vecextract(L,v)*u)||next;show&&print1(t",");n--||return(t)))} \\ Syntax updated for newer PARI versions by _M. F. Hasler_, Jul 25 2015
%Y Cf. A020449 - A020472, A036953, A260044, A260267 - A260271, A199325 - A199327, A061247, A199340 - A199349.
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Nov 05 2011