OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1)=23 because 23rd prime, 83 and 23 have 3 as their only common digit, and 23 is the smallest such number.
MAPLE
filter:= n -> convert(convert(n, base, 10), set) intersect convert(convert(ithprime(n), base, 10), set) = {3}:
select(filter, [$1..1000]); # Robert Israel, May 10 2021
MATHEMATICA
bb={}; Do[If[IntegerDigits [n]\[Intersection]IntegerDigits [ Prime[n]]\[Equal]{3}, bb=Append[bb, n]], {n, 1800}]; bb
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 28 2005
STATUS
approved