OFFSET
1,1
MATHEMATICA
sdprQ[n_]:=PrimeQ[Total[Select[IntegerDigits[n], MemberQ[{1, 2, 3, 5, 7}, #]&]]]; Select[Prime[Range[200]], sdprQ] (* Harvey P. Dale, May 19 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey Dale, May 31 2004
STATUS
approved