OFFSET
1,1
LINKS
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
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 05 2011
STATUS
approved