OFFSET
1,1
COMMENTS
EXAMPLE
a(1)=11 because 11th prime, 31 and 11 have the only common digit = 1 and 11 is the smallest such a number.
MATHEMATICA
bb={}; Do[If[IntegerDigits [n]\[Intersection]IntegerDigits [ Prime[n]]\[Equal]{1}, bb=Append[bb, n]], {n, 200}]; bb
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 28 2005
STATUS
approved