A152313 Primes without 0's or primes in their decimal expansion.

11, 19, 41, 61, 89, 149, 181, 191, 199, 419, 449, 461, 491, 499, 619, 641, 661, 691, 811, 881, 911, 919, 941, 991, 1181, 1481, 1489, 1499, 1619, 1669, 1699, 1811, 1861, 1889, 1949, 1999, 4111, 4441, 4481, 4649, 4691, 4861, 4889, 4919, 4969, 4999

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

F:= proc(d) local T, R, L, r;
   R:= NULL;
   T:= combinat:-cartprod([[1, 4, 6, 8, 9]$d]);
   while not T[finished] do
     L:= T[nextvalue]();
     r:= add(L[i]*10^(d-i), i=1..d);
     if isprime(r) then R:= R, r fi
   od;
R
end proc:
seq(F(d), d=2..5); # Robert Israel, Dec 07 2017

Mathematica

Select[Prime[Range[800]], Complement[IntegerDigits[#], {1, 4, 6, 8, 9}] == {} &] (* Vincenzo Librandi, Oct 25 2016 *)

Prog

(Magma) [p: p in PrimesUpTo(5000) | Set(Intseq(p))  subset [1, 4, 6, 8, 9]]; // Vincenzo Librandi, Oct 25 2016

Crossrefs

Cf. A019546, A034844, A087363, A152312.

Sequence in context: A084986 A034844 A092627 * A034303 A293166 A140506

Adjacent sequences: A152310 A152311 A152312 * A152314 A152315 A152316

Keyword

base,easy,nonn

Author

Omar E. Pol, Dec 02 2008

Status

approved