A199329 Primes with digits '0', '1' and '9' only.

11, 19, 101, 109, 191, 199, 911, 919, 991, 1009, 1019, 1091, 1109, 1901, 1999, 9001, 9011, 9091, 9109, 9199, 9901, 10009, 10091, 10099, 10111, 10909, 11119, 11909, 19001, 19009, 19919, 19991, 90001, 90011, 90019, 90191, 90199, 90901, 90911, 91009, 91019, 91099, 91199, 91909, 99109, 99119, 99191, 99901, 99991

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Index to entries about primes with digits in a given set

Mathematica

Select[FromDigits/@Tuples[{0, 1, 9}, 5], PrimeQ] (* Harvey P. Dale, Dec 10 2016 *)

Prog

(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

Crossrefs

Cf. A020449 - A020472, A036953, A260044, A260267 - A260271, A199325 - A199327, A061247, A199340 - A199349.

Sequence in context: A199338 A043188 A043968 * A121132 A238332 A089773

Adjacent sequences: A199326 A199327 A199328 * A199330 A199331 A199332

Keyword

nonn,base

Author

M. F. Hasler, Nov 05 2011

Status

approved