OFFSET
1,1
MATHEMATICA
bb={}; Do[If[IntegerDigits [n]\[Intersection]IntegerDigits [ Prime[n]]\[Equal]{9}, bb=Append[bb, n]], {n, 1800}]; bb
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved