OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) = 52 because the 52nd prime, 239 and 52 have the only common digit 2, and 52 is the smallest such number.
MATHEMATICA
bb = {}; Do[If[IntegerDigits [n]\[Intersection]IntegerDigits [ Prime[n]]\[Equal]{2}, bb = Append[bb, n]], {n, 1800}]; bb (* Zak Seidov *)
FromDigits[First[#]]&/@Select[Table[IntegerDigits[{n, Prime[n]}], {n, 1300}], Intersection@@# == {2} &] (* Harvey P. Dale, Nov 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 28 2005
STATUS
approved