OFFSET
1,1
COMMENTS
Prime digits are 2, 3, 5, 7, nonprime digits are 0, 1, 4, 6, 8, 9.
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[Prime[n]]}, Count[idn, _?PrimeQ]< Length[idn]/2]; Select[Prime[Range[200]], okQ] (* Harvey P. Dale, Apr 20 2011 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 19 2009
EXTENSIONS
Corrected (277, 419 removed) by R. J. Mathar, May 05 2010
STATUS
approved