OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
James Maynard, Primes with restricted digits, arXiv:1604.01041 [math.NT], 2016.
James Maynard and Brady Haran, Primes without a 7, Numberphile video (2019)
MATHEMATICA
Select[Prime[Range[400]], Min[IntegerDigits[ # ]]>3&]
Flatten[Table[Select[FromDigits/@Tuples[Range[4, 9], n], PrimeQ], {n, 4}]] (* Harvey P. Dale, Jan 09 2016 *)
PROG
(PARI) is(n)=#setintersect(Set(digits(n)), [0, 1, 2, 3]) && isprime(n) \\ Charles R Greathouse IV, Apr 11 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
EXTENSIONS
More terms from Vincenzo Librandi, Apr 17 2010
STATUS
approved