OFFSET
1,1
COMMENTS
EXAMPLE
a(1)=80 because 80th prime, 409 and 80 have the only common digit = 0 and 80 is the smallest such a number.
MATHEMATICA
bb={}; Do[If[IntegerDigits [n]\[Intersection]IntegerDigits [Prime[n]]\[Equal]{0}, bb=Append[bb, n]], {n, 3000}]; bb
Select[Range[2200], Intersection[IntegerDigits[#], IntegerDigits[ Prime[#]]] == {0}&] (* Harvey P. Dale, Dec 18 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 28 2005
STATUS
approved