OFFSET
1,1
EXAMPLE
373 is in the sequence because 1) it is a prime number, 2) there are 74 prime numbers smaller than or equal to 373, 3) in the decimal expansion of 373/74=5.04(054)... there are no 3's and 7's.
MATHEMATICA
fQ[n_] := Block[{p = Prime@n}, Intersection[ Union@ Flatten@ RealDigits[p/n][[1]], IntegerDigits@ p] == {}]; Do[ If[fQ@n, Print@ Prime@n], {n, 200000}] (* Robert G. Wilson v, Apr 24 2006 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 23 2006
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Apr 24 2006
STATUS
approved